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1.0 LOCORE 

* A * 

Communications regionr interrupt traps and preset entry point 4.. 
table. 

1-1 Program Function 

This program contains three functional parts- These 
are: -tl> communications region-this area contains system 
constants that are common for all 2-1 NSOS systems* 
•C2J- interrupt trap region-this area is set up to provide 
the interrupt handling desired; -C3} preset entry point 
table-this table allows entry to a protected routine 
from an unprotected routine- 

1-2 Communications Region 

Locations $0 thru $FF are directly addressable in the 
1700 computer. The communications region is set up to 
take advantage of this feature- The first part of the 
table contains constants which provide commonly used 
masks. The second part of the table contains system 
] parameters such as flags r counters and addresses of system 

entry points. 

1-3 Interrupt Trap Region 

The interrupt trap region encompasses the area from $100 
to $13F- Each interrupt line has associated with it a 
four word area within this region: line zero-^100 to 
$103r line one-$10M to 5107r etc A typical setup for 
line zero is shown below: 

LINE0 



num 





UORD 


1 


RTJ 


-CSFfl} 


WORD 


2 


Nun 


15 


U0RD 


3 


ADC 


IPR0C 


U0RD 


L| 



Uord one is reserved for the hardware storage of the 
program address on interrupt. 

Uord two is the first instruction executed following an 
interrupt. A return jump to a system interrupt processor 
is then made- For line zero the transfer is to the 
internal interrupt handler -CIPROO- The other lines 
transfer to the common interrupt handler -CALUN>- These 
routines provide for saving of registers and program 
conditions via an interrupt stack- 
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Word three is used to hold the priority level associated 
with the interrupt 1 ine- The HASKT table is indexed by 
th is ordina 1 - 

Word four contains the address of the processor for this 
line. Host lines use the routine EPROO Use of EPROC 
dictates that the interrupting device must return bit 
two as an * interrupt status* during a status operation 
and all hardware devices must be ordered by logical unit 
number on the interrupt lines. A special interrupt 
routine may be designated here instead of EPROC- 

1-4 Table of Presets 

The table of presets provides entry to a protected 
routine from an unprotected routine. Entries are. made 
following the interrupt trap region in the following 
manner: 



ALF 


3rNAME 


ADC 


NAHE 


EXT 


NAME 



l^ame is an entry point to a core resident system program 
See section for further information. 
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5.Q SYSBUF - System tables and parameters. 

2-1 Program Function 

The following system buffers system tables and miscellaneous 
subroutines are contained in this program- 

j 

1- Logical Unit Tables 

A. L0G1A 

B. LOGl 

C. L0G2 

5. Interrupt Mask Table 

A. MASKT 
3- Storage Stacks 

A. INTSTK - Interrupt stack 

B. VOLBLK - Volatile storage 

C. SCHSTK - Scheduler stack 

*)• Core Allocation Data 

A. CALTHD 

B. LVLSTR 

S. Diagnostic Tables 

A. ALTERR 

B. D6NTAB 

L>. Mass Memory Diagnostics 

A. MMDIAG 
7. Miscellaneous Programs 

A. IDLE 

B. OVRLAY 

A. TIMER-, RTMS-, TRACE and ODEBUG information. 
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A. TIMCPSn TIMEC-, TIMACK-, T0DLVL-, NSCHED 

B. R17L0C 

C. STOPIT 

D. CHRSFG 

T. Dummy Device Driver 
A. DUMDRV 
ID- Physical Device Tables 

2.2 Logical Unit Tables 
2-2-1 L0G1A - Table 

This program segment contains ADC's for each system logical 
unit. Each ADC will specify the address of the physical 
device table for a specific logical unit- This table pro- 
vides the definition of logical unit per physical device- 
Certain restraints are imposed on the ordering of this 
table: •£!> the core allocator is logical unit one-i 
•C2> use of EPROC requires that each logical unit is ordered 
by interrupt line number. Standard logical units -Ci-e. 
inputn listi etc.} are assigned by equates referencing this 
table. 

2.2.2 L0G1 Table 

An entry is placed in this table for each logical unit. The 
format is as shown below: 

IS 1M 13 12 11 



L.U. 



BIT 1M = 1 implies the logical unit shares a device -Cex. 
FORTRAN and NON-FORTRAN Printer Driver would 
have two logical units assigned to one physical 
printer} 

BIT 13 = 1 implies the logical unit is marked down 

BIT D thru 11 

•CL.U.} is the alternate logical unit -Czero implies 
no alternate? 
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5. 5. 3 L0G2 Table 

This table is preset to £FFFF for each logical unit. 
This table is used to hold the top of the thread address 
for requests for each logical unit. 

2.3 Interrupt Mask Table 

This table is indexed by priority level to set the M-register. 
The M-register setting will determine which interrupt lines 
will be enabled for a given priority level. Two basic rules 
to be followed are- 

1. Unused interrupt lines should have their corresponding 
bit set to zero throughout the table. -CBits D through 
IS of the M-register correspond to interrupt lines 
through 153- 

2. A software priority is associated with each interrupt 
line. More than one line can be associated with the 
same priority and can have the same mask. A "i" bit 
is placed in the table for the bit position associated 
with an interrupt line for all levels below the priority 
level associated with that line. "0" bits must be placed 
in the interrupt line position for all the priority 
levels equal to and above the priority level associated 
with the line. 

2. L I Interrupt Stack 

The interrupt stack -CINTSTIO is the block of storage set aside 
for saving the status of interrupted programs. The Common 
Interrupt Handler stores the c2- n A-I- and P- registers and 
the overflow indicator and the priority level of the interrupt- 
ed program in this ar&a» Five words arQ required for each 
entry and the stack is of the push-downi pop-up typen i«e.i 
last-ini first out. The number of entries to be allowed for 
in the table is derived from the number of different priority 
levels used by interrupts. 

2. "4.1 Interrupt Stack Entry 

Word 

Q. - Register 

1 A - Register 

2 I - Register 

3 Overflow -[bit 153-t P-Register 
•4 Priority Level 
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2-5 Volatile Storage 

VOLBLK is the volatile storage area set aside for alloca- 
tion of data storage for routines that must be re-entrant 
■Ci.e-i may be operated at more than one level at the same 
time!- Sufficient volatile storage must be reserved for 
each priority level to accommodate the worst case or 
maximum amount of volatile storage that can be requested 
at each level- The system cannot recover from overflow 
•Cmore requested than is available} of volatile storage. 

2-5-1 Core Requirements 

Core may be reserved for volatile following these quidelines 

1- For each priority level in, which monitor requests are 
maden eight locations of volatile are required- If the 
Request Processor itself makes a requesti such as a 
Secondary Scheduler calli an additional eight locations 
are required- Thus sixteen locations must be reserved 
per priority level plus additional locations if used by 
other re-entrant routines. 

2. If the re-entrant FORTRAN Object Library and re-entrant 
Encode/Decode Package are used MT locations must be 
reserved for each priority level using the re-entrant 
FORTRAN library plus 5t> locations for each priority 
level using re-entrant Encode/Decode- 

2-b Scheduler Stack 

This stacki SCHSTKt is a series of four-word entries. 

Word 

D priority level 

1 completion address 

2 thread to next entry 

3 value of (2-register being passed 

A program may request the operation of another program by 
making a scheduler request. Scheduler requests may also 
be generated by the Timer Routine after a given interval 
of time has elapsed. These requests are threaded together 
on the scheduler stack. 
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The total number of entries required is equal to the sum 
of the number of scheduler requests and timer requests 
that can be on the stack at one time- The size of this 
stack may be changed by the user. 

SECPRO 



a. a 



Normally all entries are left emptyn i.e.n NUM £7FFF. The 
address of a special interrupt response routine can be in- 
cluded in the entry for its linen but it is more efficient 
to put this address in the fourth word of the interrupt trap 
location instead of using EPROC and SECPRO. 

Core Allocation Data 



LVLSTR is the table of starting addresses for the allocatable 
core area available to each priority level. The upper 
bound for protected allocatable area is the same for all 
levels: the start of unprotected core. To prevent low- 
priority programs from tying up all of the allocatable area* 
it is common to restrict the amount available to them while 
making the entire allocatable area available to the high 
priority programs. 

LVLSTR is set up to reflect the above. AREAl-i AREA! n AREA3 
and AREAM are entry point names in the SPACE program used to 
divide the allocatable area as shown below. 



Resident 



Available 
to 



high priority 
only 



t 



-> 7FFF 



Unprotected 
Job Area 



-> AREA1 
— * AREAS 
-> AREA3 
— *AREAC-AREAM 



Request priorities It 2 and 3 must include sufficient area 

for the Job Processor. The entire area-AREAC must be 

available at request priority zero so the system can get 
started as initialized. 



O 
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E-T Diagnostic Tables 

Bm^ml Alternate Device Error Table 

This table reserves one word for each device which could 
have a simultaneous failure. 

2-T.S Diagnostic Timer Table 

An ADC entry is made pointing to the physical device table 
for each logical unit to be supervised by the diagnostic 
timer. 

2.1Q Mass Memory Diagnostic Routine 

MMDIAG is a routine that prints a message of the following 
form: 

MASS MEM ERR n 

n is the error code 

If the request that resulted in failure was a System 
Directory requestn this routine releases allocated core. 
Control then returns back to the driver. This routine may 
be modified to perform additional functions such as making 
a Timer Request for the scheduled program to be attempted 
again at a later time. 

2.11 Idle Loop 

This routine runs at level -1 when no other programs are * 
running. This routine may be modified to provide a counter 
to monitor the amount of idle time. If IDLE is running 
a snap dump may be taken by steppingn clearing the A-register 
and hitting run. 

2.12 Overlay Subroutine 

The overlay subroutine allows users to call for mass memory 
to be read over the actual call parameters. This is accom- 
plished in the disk or drum driver by moving the parameter 
list to the equipment table and using the overlay subroutine 
to ensure that the return address from the call cannot be 
written over. Indirect overlay calls are not permitted. 

The following example shows a typical overlay disk read. 

RTJ OVRLAY 

ADC *2Q0-,C0MP-,a-,*fiC5iN.,BUF.,Q.,ADR 
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E.13 Dummy Device Driver 

This routine is used with the dummy device table and is 
assigned a logical unit like a normal device- Read or write 
requests that address this logical unit cause the dummy 
driver to be initiated! and the completion address in the 
request is scheduled with error indication- This allows 
the Dummy Device to be setup as the alternate for devices 
where it would not be acceptable to hang up the request 
waiting for operator action in response to the Alternate 
Device Handler request for input. 

E.m Physical Device Tables 

The physical device table -CPDT'.sl- contain all the device 
data necessary for a device to be operated by its driver. 
Uord D through IE have the same general use for all device 
drivers- Words from 13 on are used for special purposes 
appropriate to the driveri if necessary- 
Each drivers physical device table setup is outlined in the 
1700 MSOS Installation Handbook Pub- No- bOE3M300B- 



O 
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3-D SCHEDULER 

3.1 EXTERNAL SYMBOLS 

T1D Entry point of SPACF request 

^CUTOP Location in System Tables containing location of 
top entry in schedule stack 

3-2 FUNCTION 

In a given systemr numerous requests for the execution of 
programs at specific priority levels may be generated. 
Spec if ical Iy r these requests are generated when 

a> an I/O request has been completedr 

b> a specified time interval has elapsedr 

c> core has been allocatedr 

d> a mass memory request has been executed. 

Requests may also be made by any program directly. They 
are called Scheduler Requests. 

It is the function of the Scheduler Request Processor to 



v. 



a> cause the immediate execution of a requested program 

if it is of a higher priority level than the requesting 

■TcurrentT programr or 
b> thread the request by priority and within a priority 

by first in first outr if its priority is the current 

priority. 

If the requested program is mass memory res i dent r the 
Scheduler Processor will cause allocation of core for this 
program and transfer of the program from mass memory. After 
the program has been transferredr a Scheduler Request is 
mader which results in a} or b> above. 

Whenever a program term i nates r the Program dispatcher will 
select the next program to be runt either from the top of 
the scheduler thread or the interrupt stack- 

3.3 Entry Interfaces 

Program is entered from the Request Fntry Processor. The 
calling ^request ing> program must have interrupts enabled. 
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3-M F'xit Interface 

The program exits either to the requested program ^completion 
addresslr if the level is higher than the current one or to 
the request exit- 
In the first case the priority level r I and the return address 
leading to the request exit are saved in the proper positions 
of the interrupt stack and its base adjusted. A, Q and I are 
saved in volatiler which is not released until the requested 
program terminates. T contains the base of volatile storage r 
when control is given to the requested program. 

Interrupts are enabled and the requested priority level and 
mask set. 

In the second case the request has been threaded. Control 
goes to REG2XT to restore the registers for the requestor 
and enable interrupts. 

3-5 Internal Description 

All Scheduler Requests are identified by the request entry 
processorr which also allocates a sufficient amount of volatile 
storage for re-entrancy purposes. Then control is given to 
the Scheduler Request Processor ^Symbol TT*-- T nterrupts are 
enabled and I contains the base address of the allocated 
volatile storage. Volatile is organized in this way. 

-til + contains Q 

-CI> + 1 contains A 

•CI} + E contains I 

-CI} + 3 contains Return Address 

TI> + M contains Priority Level of Request 

-CI} + S contains Pointer to Request Parameter I i st 

-CI> + b contains First lilord of Request -CT e mp.> 

TI> + 7 contains Second lilord of Request TTemp-l 

First the return address is adjusted by two locations unless 
the call was indirectr in which case it had already been 
adjusted by the Request Fntry Processor- Then word 1 and E 
of the call are stored in volatile temporarily- If the call 
is a directory call control is given to DIRCAL. Tf not a 
directory ca 1 1 r a test is made to see if the requested program 
is of higher level than the current one in which case control 
transfers to HILVL- 
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Otherwiser a test for aprimary call -CSCHDLE request} is 
made and only then? if it is not a directory ca 1 1 r not of 
a higher level* and not a secondary ca 1 1 r is a position in the 
Scheduler Stack obtained and the request transferred from 
volatile -CI} + b and -CI} + 7 into the stack. The top of the 
available {empty} thread is in tompt. All ^empties* -Tava i 1 - 
able entries} are threaded togetherr the last one containing 
-0 in the thread. Thus if T0MPT contains -Or it indicates 
that the stack has overflowed! in which case an error routine 
is entered. T he Scheduler Stack is shared with entries from 
timer requests. It effectively buffers these requests r so 
that the requesting programs may leave core. One entry on 
the Scheduler/ 1 " imer Stack consists of M words. 
15 m q a 7 m 3 n 



RC=T 



X 



RP 



CP 



Thread 



0. 



3 



T he completion address is absolutized before going on the 
stack as it cannot be absolutized later- 

The Scheduler/Timer Stack and T0 M PT must be preset by the 

user- 

For directory calls the DTRCAL routine determines after placing 
the call priority into the di rectory r if the called program 
is mass memory resident. In this caser control goes to the 
Allocator Request Processor -TSymbol T10T. Otherwiser control 
goes to SCHEDE or to HILVL depending on the priority of the 
request. 

At SCHEDE the original contents of the (3-register are stored 
in the request from volatile -TIT + and the request is then 
threaded on the Scheduler thread. This thread is not to be 
confused with the Scheduler Stack since it contains secondary 
scheduler requests located somewhere in a user programr 
primary requests located in the stack and directory requested 
located in the directory. 

In the THRED1 routine a position for the new request is 
determined according to the priority of the new entry. It 
may be at the end of the beginning of the existing thread 
in particular if it is the first entry. 

The routine THREAD accomplished the actual threading. 
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HILVL gives control to the requested program immediately 
after saving all information necessary to continue the 
requesting program- A request for a higher level program 
can therefore be considered a pseudo interrupt. 

The current priority level and T are saved in the interrupt 
stack and the interrupt stack base address count is incre- 
mented by 5. The request exit is stored as the return address 
since upon return from the program volatile must be restored 
as well as A and (3. Then the requested priority level and 
the associated mask are set and control is given to the new 
*Go To* 7 address. 
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4-0 Dispatcher 

4.1 Internal Symbols 

SCHSTC Routine to initiate a program when taken from the 

scheduler thread- 
DISP Start of Program Dispatcher 
C0HEXT Defined by an E(3U and determines the interrupt trap 

slot location to be used as a common exit. 

4-E Dispatcher Function 

Whenever a protected program term i nates r it will give control 
to the Program dispatcher*. The Program dispatcher decides 
which program shall be initiated next. T t could be a program 
previously interrupted and waiting on the interrupt stack r 
or a program that has been scheduled and is waiting in the 
scheduler thread- The highest priority program is then 
initiated by the Program Dispatcher and control given to it. 

4-3 Entry Interfaces 

Entered via a jump to entry point DISP. 

4-4 Exit Interfaces 

If control is given to the program that was previously 
interrupted? the A-? Q-t I-? and "-registers and the overflow 
are restored to their previous condition? as well as priority 
level. Interrupts are enabled? and control returns to the 
location at which the interrupt originally occurred. 

If control is given to a program on the scheduler thread? 
^A* 7 will contain the address of the scheduler thread entry? 
Q will contain the fourth word of the entry {the original 
in scheduler calls? or an error indication in 1/0 calls? or 
the time of day in timer callsT? priority level and M will 
contain the configuration specified in the first word of the 
entry? and I and overflow will be an arbitrary configuration- 
Interrupts are enabled. 

4.5 Internal Description 




er 



thread. If the interrupted program is to be resumed? the 
return address is stored in the common exit and I and A are C 
restored. Then? the interrupt stack base is adjusted down ■ 
by 5 and stored in roilNT r and the priority level restored 

^Protected programs may also terminate with a RELEAS request 
which jumps to the Program Dispatcher. 
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into the cell containing priority level- The mask associated 
with this level is transferred into m -Twhich restores MT-r 
and then 0. is also restored. Control is returned to the 
interrupted program by an EXI instruction which restores 
overflow and enables interrupts. 

If the program of highest level is on the scheduler threadr 
the priority specified in the highest thread entry -Tthe 
address of this entry is in SCHT0P} is placed into the cell 
containing priority level r and the associated mask placed 
into N - Then SCHT0P is updated pointing now to the next 
entry in the thread. If there is no other entryr it contains 
-0. 

Nextr a test is made whether the scheduler thread entry was 
a primary entry -Ci-e-r not resulting from a completed 1/0 
call or an expired timer call! and is in the scheduler 
stack -[see specification on scheduler for difference between 
scheduler stack and thread>- 

If yesr the scheduler stack position is added to the thread 
of ^empties* 7 and the address to which control is to be given 
is stored in the common exit. Then the address of the entry 
is put into A and the fourth word of the call into t?> Control 
is transferred with an EXI instruction which enables interrupts 

If the scheduler thread entry resulted from an 1/0 or T imer 
ca 1 1 r the specified completion location may be relative. If 
it isr the absolute address is determined and the address 
stored in the common exit. Then the third word of the entry 
-•"containing the thread^ is set to as an indication that 
the call is completed and could be made again- A and 0. are 
loaded and r ontrol is transferred as above. 
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5-0 Scheduler-Dispatcher for Re-entrant FORTRAN Library 
5.1 Program funtions of RDISP 



T his version of the scheduler/dispatcher is the same as the 
scheduler -TSGHEDUT and dispatcher -CNDISPT with the additional 
capability to save or restore the FORTRAN scratch area and 
the library temporary locations on changes of priority level 
which would give control to another FORTRAN user. 

5-E Entry Interfaces -Csee sections 3-3r M-3> 

5-3 Exit Interfaces Tsee sections 3-Mr. M-m 

5.M Internal Description 

The sections 3-5 and M.5 of this IMS should be referenced for 
the internal description of the normal dispatcher and scheduler 
The text in this section only describes the differences in 
this module from the standard. 

If entry into the scheduler i s by a program requesting a 
higher level program to be nun» other than a mass memory 
directory ca 1 I r then the requestor is put on the interrupt 
stack and control is passed to SAVE at the requested priority. 

At SAVE a test is made to see if the new priority level is 
a FORTRAN level and a new FORTRAN level- Tf so we must save 
our data to provide re-entrancy- If not we exit SAVE back 
to the scheduler. If we must save our data we calculate the 
data area required to save $<"5 thru 5E5r our normal A, Q 
and I plus the data list specified by FLIST. The Q register 
is set equal to the old FORTRAN level FLEVEL and the A register 
is set equal to the volatile region associated with the old 
level -TFT0P}. Volatile is then requested. The return address 
for SAVE is stored in the third word of volatile and the new 
FLEVEL and FTOP are set up. Interrupts are enabled and the 
FORTRAN scratch area is now saved in volatile. The conditions 
on entry are reset and exit is made- 

Upon entering the dispatcher control is passed to RESRTN. 
This routine will restore the communications region or 
scratch area for FORTRAN JJF a FORTRAN program has just 
terminated. If no other FORTRAN programs have their data 
stored no action is taken and the scratch area remains the 
same- If the program which just terminated was not a 
FORTRAN program no action is taken- 
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If the dispatcher determines the highest priority program 
is on the scheduler thread control is passed to SAVE. If 
the program to be executed is a FORTRAN level we must save 
the FORTRAN! scratch as described above, otherwise, control 
is returned to the scheduler operations. 
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b-0 COMPLETE REQUEST FOR DRIVER ROUTINE 

b-1 SYMBOLS 

COMPRtf Entry Point 

t-S FUNCTION 

The functions of this subroutine are to initiate completion 
requests to the Scheduler for threaded I/O requests and to 
perform other housekeeping details upon completion of an 
I/O action by an I/O device driver. 

b-3 ENTRY INTERFACES 

COMPRd is entered via a return jump with the physical 
device table address for the device in I- 

b.M EXIT INTERFACES 

The contents of the I register are not disturbed. The 
contents of the Ar Q and Overflow registers are destroyed. 
Interrupts are enabled. 

b.5 INTERNAL DESCRIPTION 

The routine is entered from an I/O device driver via a 
Return Jump to COMPRd. Interrupts are immediately inhibited 

The Diagnostic Clock cell in the Physical Device Table is 
set idle- 

For logical units which do not share devicesr the completion 
addressr if not zeror is scheduled with the error field 
from Word T of the Physical Device Table replacing the V 
field of the I/O request parameter test- If the call was 
a system directory request the V field is not stored in the 
parameter list since the system directory entries do not 
have a V field- Bits 1M and IS of Word fi in the Physical 
Device Table are set to °zero^ and an indirect secondary 
scheduler call is made. The request parameter Iistr which 
contains a request code designating it an I/O callr is 
flagged as a secondary schedular call by setting bit IS 
of the first word {field I> to 7 one« 9 The scheduler later 
resets it to 7 zero. 9 The device is not released from its 
logical unit assignment. 
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EXAMPLE: 

Indirect call in C0MPRG2 

C001 

points to I/O call which is now a secondary scheduler 
request: 

M000 5HFM 

fiflOE Bit set by COMPRtf, cleared after SCHEDU threads 

5010 This address scheduled. request- 

2000 

OOOfl 

001b 

1000 

If the completion address is zero? the thread word of the 
request is cleared and no address is scheduled. 

For logical units which share devicesr completed requests 
are treated like requests to ordinary logical units. The 
device is then assigned to a pseudo logical unitr SFFFF 
■Csee section 7. Ml- 

The subroutine exits to the location following the return 
jump which called it- 
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7.Q FIND NEXT REQUEST FOR DRIVER -CFNR1 

7-1 FUNCTION 

The function of this subroutine is to find the request 
which should be processed next by a driver for a device- 
FNR also stores the information in the physical device 
table concerning the request that is common to all drivers- 

7-E ENTRY INTERFACES 

FNR is entered via a return jump to entry point FNR with 
the physical device table address in I- 

7-3 EXIT INTERFACES 

If there are. no more requests for action by a devicer the 
subroutine returns to the driver at call +1- The device 
has been made unassigned by storing a zero in word 5 -CELUJ 
of the physical device table. 

If FNR has found a request it returns to the driver at 
call +E- The I register is undisturbed. The A & 0. registers/^ 
are not restored. The following information has been stored v_y 
in the physical device device table by FNR: 

1. Operation in progress bit is set in word A. 

S- Address of the I/O parameter list is set in word b- 

3- Word 5 -CELU1 remains assigned to the same logical 

unit or to a logical unit which shares the device. 
M- Words ID and 11 contain the first word address and 

the last word address +1- 
5. Word T {switch word} is cleared except for the mass 

memory bit -C i f set} and bits D and 1 which indicate 

whether the type of operation is ASCII or binaryr 

formatted or unformatted. 

7-M INTERNAL DESCRIPTION 

For logical units that do not share a devicer FNR examines 
the thread in the LOGE table associated with the logical 
unit -CL-U- assigned by RW before it schedules the driver} 
to obtain the next request. If there are noner FNR exits 
to cal 1 +1- 
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The top request on the LOGE thread is removed and its 
parameter list addressr the first word and last word +1 
addressesr the operat ion- i n-progress bitr and the type of 
operation bits are stored in the physical device table. 
Exit is to ca I 1 + 2- 

If the request was a system directory I/O call -[request 
code of zerolr the first word and last word +1 are computed 
from the system directory entry- The type of operation 
bits are. not set- Exit is to call + 2- 

If the device is shared by several logical unitsr the 
CONPRtf subroutine has set word S -CELU} of the physical 
device table to SFFFF- Upon finding that a device is 
assigned to $FFFF» FNR searches the L0G1A table for the 
highest priority -Ci-e- the lowest number! which requires 
the available device- When a logical unit with a waiting 
request is encounteredr FNR places the device into operation 
in the same manner as for unshared devices. This provides 
sharing of devices by several user routines- However r once 
a request to a device is started it will be completed before 
a request of higher priority to the same device can be 
in it iated- 
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fl-D ALTERNATE DEVICE HANDLER 
fi-1 Function 



The Alternate Device Handler is responsible for processing 
irrecoverable errors for many of the drivers- 

Upon entryr it determines whether the device has an operat i ona 
alternate. If an alternate existsr the request for the 
failed device is assigned to the alternate and the operator 
is notified of the switch-over- This re-assignment is done 
at a high priority level- However » if no alternate existsr 
the program reschedules itself at a low priority to request 
operator intervention- In either case» all message output 
is executed from a low priority section of the program- 

The Alternate Device Handler continues to assign alternate 
to failed devices without waiting for completion of its 
message I/O- This requires that the table ALTERR be provided 
to store the error words in for processing by the low priority 



^~ 



section. 

fl-E Entry Interfaces < v J 

Entry is made via a jump to the entry points DEVERRr ADEVr 
or ALTDEV- These names are equivalant and can be used 
interchangeably. On entry Q. should contain the following 
inf ormat i on: 

Bits D-S Error code 

D - timer expired 
1 - reject 
E - alarm 
3 - parity error 
M - checksum error 
S-X - other error codes as defined for driver 

Bits b-15 Logical Unit Number associated with the 
the requested device. 

NOTE: The logical unit number in the error word is formed 
by the driver of the device using the device-'s ELU word from 
the PHSTAB- Since the RU and FNR routines store the requested 
logical unit number in ELUr the L-U- in the error word 
reflects the L-U. whose request is being processed by this 
device when it fails and not necessarily the L«U. assigned 
to this device. 
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e.g-r if the device assigned to L-U. 2 has failed previously 
and L-U. A is the alternate of L-U- 2: 

1- The error word will contain L-U. 2 if L-U- A was processing 
a request for L-U- 2 when the device failed- 

2- The error word will contain L-U. A if the device failed 
while processing a request for L-U- A- 

A-3 Entry Symbols 

ALTDEV 

ADEV Alternate Device Handler Entry from Drivers 

DEVERR 

ALTSUB Find Alternate Logical Unit Subroutines 

CONVER 

CONVRT HEX to ASCII Conversion Subroutine 

A-M External Symbols 

JBCNCL Core resident program which causes the JBKILL 
module of the job processor to be executed. 

JOBIND A location in the TRVEC module which is non- 
zero if job processing is in progress- 

ALTERR A table used to save the error word in case 
several failures occur at one time- This 
table is included in the System Tables and 
Parameters program and is of the form: 

ENT ALTERR 
ALTERR ADC NUMLU ALTDEV ERROR TABLE SIZE 
BZS -CNUHLU> SPACE FOR -CNUMLUJ 

SIMULTANEOUS FAILURES 

L0G1A 

L0G1 Logical Unit Tables 

L0G2 
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DUriALT Logical Unit Number of the Dummy Device 
Dri ver- 

Included in the System Tables and parameters 
program as an ECU entry. 

e.g-r E(3U DUMALT -CSDA-LOGIAJ 
ENT DUMALT 

If the Dummy Driver is not present T set to 
zero 

e.g. r ECU DUMALT -CO} 
ENT DUMALT 

and remove the entries from the LOGlAr LOGEr 
and L0G1 tables. 

MAS300 Entry in the Mass Memory Driver Control program. 
It will check if any mass memory drivers a^e 
waiting to use core. 

fl-M Initial Operations 

The Alternate Device Handler is entered at the priority 
of the driver, or at the level specified if scheduled into 
operation. The latter method is used if the driver must 
continue after calling the Alternate Device Handler. In 
either case the Alternate Device Handler reschedules itself 
at a high priority level determined by the symbol LEVEL. 

LEVEL should be equated to a value one greater than the 
highest priority of any driver using the Alternate Device 
Hand I er • 

A check is then made for space in the error word table- 
If the next location in the table is not empty -Ci-e-r zero} 
the size of the ALTERR table is not large enough. This error 
is irrecoverable and the Alternate Device Handler will hang 
in a loop- 

A. 5 Operations When No Alternate Exists 

The low priority section -CN0ALT3- is scheduled at level H and 
the error word is stored in the ALTERR table. Exit is made 
to the dispatcher. 
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fl-t Operations When the failed device is an alternate or has an 
alternate 

If the requested L-U- specified in the error word is already 
downr a search is made for the alternate that actually failed 
and that L-U. is stored in the error word- The failed L-U- 
is then marked down and made a shared device -ti-e-r bits 13 
and m of L0G1 are set = 1} and a check for an operational 
alternate is made. 

If no alternate of the failed L«U- existsr the L0G1 entry of 
the failed L-U- is restored to what it was on entry to ALTDEV 
The low priority section is scheduledr the error word is 
stored in ALTERR* and exit is made to the dispatcher. 

If an operative alternate of the failed L-U- is foundr the 
request is rethreaded to the L0G2 thread of the requested 
L«U- The ELU word of the L-U- that actually failed is 
cleared and the operational alternate is made a shared device 
-Ci-e.r bit 1M of L0G1 is set = 1}. 

A search of the ALTERR is made and if the error is already 
in the table the error word is cleared -Ci.e.r set to zero}. 

If the operative alternate device is not busy -Ci-e-r ELU 
word = zeroJ-r the arJ tarnate-'s dr i ver is scheduled via its 
PHSTAB and made busy by storing the requested logical unit 
number in the alternated ELU word. 

Then the low priority I/O section -CN0ALT} is scheduled if 
not busy and the error wordr if not zeror is stored in the 
ALTERR table and exit is made to the dispatcher* 

EXAMPLE: On entry to ALTDEVr if L-U. A failed while 
processing a request for L-U. 5 the error word and L0G1 
entries would look like this -CL.U- b is the alternate of 
L-U. fl>: 

IS bS 

ERROR WORD 



LU 2 L0G1 



2 


error 


code 


m m 


13 


T 







i 


1 




a 
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LU fl L0G1 



LU b L0G1 



IS 


13 




°) 


D 




1 






b 


m 13 ^ 


D 













On exit from the high priority section of ALTDEVr the 
entries will now look like this: 



IS 








b5 




o 


fl 


error 


code 




m 13 ^ 


D 






i 


i 




a 




m 13 t 


D 






i 


i 




b 




m 13 t 


D 






i 











ERROR UORD 



LU E L0G1 



LU fl L0G1 



LU b L0G1 



The request has been rethreaded to L-U- E LOGE thread and 
the ELU word in the PHSTAB of L-U. b will contain L-U- E 
-Cif the L-U* b driver was not busy}. 

fl.7 Low Priority I/O Section -CNOALT} 

All I/O requests are executed in this section at priority 
level M- This allows several alternates to be re-assigned 
even before the first message has been output. The NOALT 
section picks up one entry at a time from the ALTERR tabler 
processes itr and then returns to process further entries 
until none remain in the ALTERR table- At this time NOALT 
clears its busy flag and exits to the dispatcher. 

Each error word from a driver to ALTDEV is stored in successive 
positions in the ALTERR table. When the top of the table is 
reached the indexes are set back to the bottom of the table. 
If the next location in the table is not empty -Ci-e-r zero} 
the size of the ALTERR is not large enough. 



NOALT informs the operator of errors and interrogates the 
operator for guidance when there is no alternate available. 



r 
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If an operative alternate existsr the following message 
results: 

Lrnn FAILED ee 
ALT rmm 

If no alternate is assignedr the following message results: 

Lrnn FAILED ee 
ACTION 

followed by an input request to allow the operator to specify 
the action to be taken. 

nn = Logical unit that failed {decimal! 
ee = Error code passed from driver {decimal} 
mm = Logical unit of alternate -[decimal} 

All Input/Output is via the Comment Device- 

If the input request following the ACTION message is completed 
with error ind ication {e-g-r a timeout occurred} then the RP 
option is assumed. The ACTION and input request cannot be 
repeated otherwise the ALTERR table may be filled with error 
word entries corresponding to the input comment device 
fa i 1 ure. 

If no alternate exists the operator is requested to specify 
further action- His options are as follows: 

RP Repeat the request - the current request is 

rethreaded and the initiator portion of the 
driver scheduled. 

CU Continue - the completion address is scheduledr 

the error is reported to the caller and the 
driver initiator rescheduled- 

CD Continue and mark the device as ^down^ 7 . This 

option causes all completion addresses for 
requests in the queue to be scheduled with 
error indicators in Q ■ In additionr the device 
is marked ^down v by setting bit 13 in L0G1 
table- This results in scheduling completion 
addresses with error codes for any subsequent 
request for this device- 
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DU Delete the job - if job processing is not in 

effect this option will cause repetition of 
the action request printout*. If job processing 
is in effect r the job processor job cancel 
entry is scheduled at level two. All the 
actions of the CU option are then executed. 

"Job processing is not in effect when LIBEDT or RECOVERY 
modules are in control- 

DD Delete the job and mark the device as *down v . 

This action will result in a repeat of the 
action request printout if job processing is 
not in effect. The job processor job cancel 
entry is scheduled at level 2. All the actions 
of the CD option are then executed. 

fl.^ Subroutines 

ALTSUB is the subroutine used to find the operational 
alternate for a given logical unit. The logical unit is in 
Q on entry and if this logical unit is operational -[not 
marked down} then Q returns unchanged- Otherwiser Q will f~^\ 
be set to the logical unit of the first operational a I ternate v - y 
assigned. If no alternate is assigned c? will be zero. If 
the only alternate is the device that just failedr then Q 
will be set to DUflALT on return- The value of DUHALT is 
either the logical unit of the Dummy Driver or zeror and is 
set at Initialization. {See fl.m 

The ALTSUB subroutine is called from the fol I ow ing programs : 

Rid Read-Urite Request Processor 
FNR Find Next Request Subroutine 

Note that ALTSUB allows alternates to be assigned in a 
circular arrangement 

e-g.r L.U- b-*7->A-Sfl-^10->fi 

C0NVER -OC0NVRT} is a hexadecimal to ASCII coded Decimal 
conversion subroutine. The hexadecimal value in A is 
converted and returned to A. It is restricted to a maximum 
of two decimal digits -Ci-e-r ^ip"!" and is used to convert 
the logical unit and error code for printout. The subroutine 
is re-entrant and may be used by other programs. 
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fl-lD Dummy Driver 

If a device fails and no alternate is available r the dummy 
device can be assigned as the alternate- This causes the 
Dummy Driver to be scheduled via the Dummy Equipment Table- 
The Dummy Driver picks up the request using the FNR subroutine 
and sets the error field in the request- Then the logical 
unit that failed is restored by cleaning the ^device down^ 7 
bit in the L0G1 logical unit table- Finally the C0HPR(3 
subroutine is entered to complete the request and then returns 
to the Dummy Driver Initiator to re-enter FNR and process 
any further requests on the thread- 

The Dummy Driver allows a user program to make an I/O request 
and ensure that the completion address will be scheduled 
without requiring operator intervention- Otherwiser the user 
program could be suspended indefinitely. The user program 
must check for I/O errors at the completion entry and take 
appropriate action if an I/O error occurred -t i - e ■ » if (3^5 = 1}- 

The Dummy Driver and Dummy Equipment Table must be included in 
the System Tables and Parameters Program if this feature is 
required. A logical unit entry must also be assigned to the 
Dummy Driver in the logical unit tablesr LOGlAr L0G1 and L0G2- 
This logical unit number can then be assigned as the 
alternate in the L0G1 entry for the logical units that have 
no other alternates. See section 2-13- 

DUMALT is the logical unit number assigned to the Dummy. If 
the Dummy Driver is not included DUHALT should be equivalenced 
to zero- DUHALT is assigned as the alternate when all 
alternates are marked down such that the failed device is 
assigned as its own alternate- 

The dummy may also be used as the alternate for the comment 
device. Comment device failures are not recoverable unless 
an alternate is assigned for the comment input device- 
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T-O. riAKE-fl FOR DRIVER ROUTINE 

T.l SYMBOLS 

nAK(3 Entry Point 

T-2 FUNCTION 

The functions of this routine are to determine if a short 
read and/or a device error occurred during the driver's 
operations. If either of these conditions has occurredr 
flAKd will set the proper bits in Word T {switch word]- of 
the physical device table- The COHPRfl subroutine uses 
these bits to form the V field of an I/O call -[see section 
b.S>. 

T-3 ENTRY INTERFACES 

HAKtf is entered with the address of the return to the driver 
in the A register and the physical device table address of 
the device in the I register- 

T.H EXIT INTERFACES 

The contents of the I register are not disturbed. The 
contents of the A and Q registers are destroyed. 

T.5 INTERNAL DESCRIPTION 

On entry the return address of the driver is stored in the 
physical device table and the Q register is cleared. 

A test for a short read is made by comparing the last 
location read {'core' address} to the last word address 
+1. Ifr before exiting to NAKflf the driver was expecting 
the next character to be a lower character r the 'cone 9 
address is incremented by one before the short read test. 
This is necessary because the driver does not increment the 
'core' address until the lower character is received. If a 
short read condition exists, bit 1M is set in the Q register 

A check is then made for a device error condition and if 
truer if the the device was not ready. Bits IS and/or 13 
are set reflecting these conditions. 

The final content of the Q register is stored in word ^ 
{switch word} of the physical device table and exit is 
made to the return address. 
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1D-D COMMON 

10-1 External Symbols 

ALLIN - Entry point of COMMON 

1D-E Function 

This program saves the Qt Ar I registers along with the 
return address and priority level prior to an interrupt- 
It adds this information to the interrupt stack and sets 
the mask register with a new mask and sets the new priority 
lever in the current priority level cell. 

10-3 Entry Interface 

This program is entered by an indirect return jump thru 
location $FE- This I ocore location contains the address 
of the entry point ALLIN. 

1D-M Exit Interface 

This program exits to the interrupt processor chosen in \^J 
the Mth word of the trap location for the line that has 
interrupted. 

ID- 5 Internal Description 

Upon entry the top of the interrupt stack is found and 
Q, Ar Priority I eve 1 r I are stored in the stack the address 
of the interrupt processor is determined and the return 
address is picked up and saved in the stack- The new 
priority level is determined from the trap region and put 
in location $EF. The new mask is found and put in the mask 
register. An exit jump is made to the processor chosen 
by the trap area- 
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11- D NIPROC 

11-1 External Symbols 

IPROC Entry point to IPROC 

IP1 Address constant of IPR0C1 

TBLE Used for HEX to ASCII conversion 

JOBIND Used to see if job processor is in core 

SUTCH Used to lock out job processor while LIBEDT 

or Recovery in core 

TIMACK Used to acknowledge timer interrupts 

IPR0C1 Processor in protect errors 

PARITY Processor for parity errors 

11.2 Function 

The function of the internal interrupt processor is to 
handle internal interrupts on line zero caused by parity 
errors in memory r memory protect errors and power failure 
conditions. 

11-3 Entry Interface ,^-\ 

\ i 

NIPROC is entered upon an interrupt of line zero. Its 
address is contained in the fourth word of line zeroes 
trap. 

ll.M Exit Interface 

Exit from IPROC depends upon the error condition that 
caused the interrupt. Protect errors exit to IPR0C1 which 
is the protect processor. Parity errors cause a branch 
to PARITY which is a user supplied module to process 
parity errors. If this module is not present the computer 
is hung in a SlflFF loop. For power failure errors the 
computer is hung in a SlflFF loop until power returns at 
that time a EXI instruction is executed which returns 
control to the P+l instruction is executed which returns 
control to the P+l interrupted address. 

11. S Internal Description 

After entry to IPROC a protect fault is tested for if a 
protect fault is found a jump to IPR0C1 is made. If no 
protect fault is found a parity error test is made if no 
parity error is found a power failure is assumed. The 
contents of the registers are saved and a jump to the ^-^ 
power failure routine is set up at absolute location D (^J 
and 1. When a power failure occurs the user master clears 
and hits the run switchr location D and 1 are executed 
giving control to the power fa i 1 ure rout i ne which in 
turn exits the interrupt state through the return address 
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1B-D External Interrupt Handler -CEPROCJ 

12-1 Program Function 

External Interrupts are handled by this routine- There 
are three conditions that can exist on an interrupted 
line- They are as follows: 

1- The line is connected to devices controlled by the 
Operating System; i-e-r they appear in the system 
equipment table. 

2. The line is connected to devices not controlled 
by the Operating System. 

3- The line is connected to devicesr some of which are 
controlled by the Operating System and some of 
which are not. 

12.2 Internal Description 

Upon entrance to v EPR0C^ the *I* register contains the 
slot location through which the interrupt came. This 
location is changed to a line number from which the 
number of devices on this line can be found. If no 
devices are present r a check is made for the secondary 
processor- 
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If devices are present r the logical unit number of the 
first device is found- The number of devices is stored 
in the I register and volatile storage is called. Only 
three words are saved; they are Gr A and I where: 

Q Line number interrupted 

A Logical unit number of first device on line 

I Negative number of devices on line 

Each device is checked in turn for having the interrupt 
status set- When one is foundr the continuator address 
is set in the 0. register of volatile storage. Volatile 
storage is released and a jump made to location specified 
in the d register. 

If no devices on the line interruptedr volatile storage 
is released and a secondary processor is checked for being 
present. If one is presentr control is passed to it; if 
notr the ghost interrupt message is scheduledr and control 
is returned to the dispatcher. 

The ghost interrupt message prints GI -Cline no.} where 
line no. is a hexadecimal number. Upon completion of 
the printoutr control is returned to the dispatcher. 

IE. 3 Entry Interfaces 

EPROC Entrance to External Interrupt Handler 

I set to slot location through which interrupt came 

1E-M Internal Entry 

PRINT Prints ghost interrupt error message 

GI {line number in hex> exits to dispatcher 

IE- 5 External References 



SECPRO Secondary Processor Table 

L0G1A Table of logical units determines 

L1-L15 number of units on line 
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13.0 Volatile Storage Handler 

13-1 Internal Symbols 

VOLBLK - Volatile storage block starting address 
V0LATL - Current address of entry into VOLBLK- Located 

in the communication area- 
V0LEND - Address of the location following the volatile 

storage block- 
0VFV0L - The entry name of a module entered in case of 

volatile storage overflow- 
ZERO - A communication area cell containing zero- 
V(3 - Index for saving users (3. 
VA - Index for saving users A- 
VI - Index for saving users I- 

lb. 1-1 Entry Symbols 

V0LA - Allocate volatile. 

V0LR - Return volatile previously allocated. 



O 



O 



13.2 Function 

A block of cope. VOLBLKr is reserved in the system tables 
module for assignment to users as volatile storage- This 
block is handled by the subroutines V0LA and V0LR- 

13-3 Entry Interfaces 

The calling sequences to allocate a block of n words is: 

RTJ V0LA Execute with interrupts inhibited. 
NUfl n Parameter N follows the RTJ. 

The calling sequence to return a block is: 

RTJ V0LR With I containing the address of the block 
returnedr and interrupts inhibited. 

13-3-1 Entry Conditions 

The interrupts must be inhibited. 

When entering VOLRr V I V must contain the address 
of the block to be returned. 
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13. H Exit Interfaces 

Upon exit from VOLAr the registers Ar 0. and I will be 
saved in the volatile block. I will contain the address 
of the allocated area- VOLATL will be incremented by nr 
the number of words requested. The format for a block of 
volatile storage is shown below. 

I upon return points here. 



D 


d saved 


1 


A saved 


2 


I saved 


n words 3 


{Open} 


M 


■COpenl 



n-1 

The minimum size of a block of volatile is three -C3> words- 

Upon exit from VOLRr the registers Ar Q and I will be 
restored from the volatile storage. VOLATL will point to 
the entry just returned. Once volatile has been returnedr 
the contents of the volatile block are no longer reliable. 

1 Hi 5 Internal Description 

VOLA handles the allocation of the volatile storage. When 
it is enteredr the registers Ar <3 and I are saved in the 
allocated area* The top of the volatile stackr VOLATLr is 
incremented by nr the number of words allocated. 

If the stack overflowsr control is given to the common 
overflow handlerr OVFVOLr to take the appropriate shutdown 
or recovery actions- Control is not returnedr if overflow 
occurred. 

VOLR handles the return of allocated volatile storage. On 
entry the I-register must point to the core being returned. 
The I-register is simply stored into the top of the volatile 
stack. Ar Q and I contain the initial contents -Cupon entry 
to V0LA3- on the return. 

l3 . b Limitat ions 

All users of volatile storage must conserve the address 
of the allocated volatile- Entry must be made under 
lockout. At least three -C31 words must be requested. 
Once volatile has been returnedr the contents of volatile 
are no longer reliable. 
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1 3i? User Instruction 

The volatile block is assembled with the system tables 
module- Enough must be allocated so that the maximum 
amount required for any level will be available. 

13. fl OFVOL 

If the volatile overflow module -COFVOLl is presentr in the 
event of an over subscription of volatile storager it will 
clear the maskr type *0V* and hang in a one cell loop. If 
the volatile overflow module is not presentr then a jump 
to 7FFF will occur with unpredictable results. 

1 3. fl.i Entry Point 
OPVDL 
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1M.0 Hon i tor Entry and Exit for Requests 
m.l Internal Symbol Definitions 

VR Relative location in volatile containing the 

user program's return address- {Equals 3} 
VPTR Relative location in volatile containing the 

pointer to the user program's parameter list -C5}. 
ZERO A location in the communication region containing 

a zero {$22}. 
ONEBIT The first location of a table constructed so that 

entry n contains 2 n . This is normally $23. 
RCSCHD The code for the scheduler request {*)}. 
LPflSK The first location of a table constructed such 

that entry n contains S n -1- This is normally 

location 12. 
VTMP Relative location in volatile containing the 

request code {»>}. 
ANONI A location in the communication region containing 

the location of this program- This is normally 

location 5FM. 
V The number of words of volatile allocated per 

request {fl}- 
AREtfXT A location in the communication region containing 

RE(3XT -[request exit}. This is normally SBT- 
H0NI The subroutine entry point to the Request Entry 

Processor. 
RCTV T D through Tq Q . 

REC3XT Common exit for monitor requests. 
AVOLA Equated to 5BB -[address of volatile!. 
AVOLR Equated to $BA -[address of release volatile}. 

m-2 Program Function 

User programs generate requests for various functions such 
as I/Or core allocation and scheduling. All of these 
requests are processed by the Request Entry Processor {REP}. 
Its function is to reserve volatile storage r save the registers 
Ar Q r Pf and I in volatile storager and give control to oae 
of the request processor routines Tg-.-Tqgr depending upon 
the request coder RCr in the user's calling sequence. 

^4.3 Entry Interface 

Entered from protected programs as a result of a monitor 
call. Entered from unprotected programs via IPROC {Chapter 
M}. 
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lij.M Exit Interfaces 

The Request Entry Processor gives control to the request 
processorsr Tg through T^gr with specific information in 
the registers- Each request processor upon entry can assume 
the fol lowing: 



REGISTER 



Locat i on 


Mnemon ic 


•CI} + D 


V<3 


■CIJ + 1 


VA 


-CI} + 5 


VPL 



-CI} + 3 



-ci} + ^ 

•CI} + s 

■CI} + b 

-CI} + ? 



VR 



VI 
VPTR 

VTDS 
VTMP 



CONTENTS 

^m-D " IS ^he location of the 
parameter list- If A^^ = Or 
then the reference to the 
parameters in the call was 
direct. Otherwise r Ais = It 
and the reference was indirect 
-Can INDIR request}. 

Absolute address of the request 
processor being executed. 

I contains the location of an 
eight -Cfl} word block of 
volatile storage. 



The ussr-'s ^-register is saved 

here. 

The user^s A-register is saved 

here- 

Not set by the Request Entry 

Processor. Intended to hold 

the request priority level- 

The return address of the user- 

If this was an indirect ca 1 1 r 

then the return address has 

been incremented by one -CI} 

to give the correct return address- 

Otherwiser this was a direct call 

and the return address must be 

adjusted by the request processor- 

The user^s I-register is saved 

here- 

The location of the user^s 

parameter list. This is in the 

accumulator A. See discussion 

of A above. 

Not set by the Request Entry 

Processor. It is intended to 

contain the top of the stack 

for the desired logical unit- 

A temporary storage cell containing 
the request coder RC- 
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l4-M-l Return to Requestor 

Control will be returned to the next instruction 
with the registers Ar Qr and I restored- Overflow 
will not be saved. Interrupts will be enabled and 
the priority level will be the same as upon entry. 

l4.5 Internal Description 

The Request Entry Processor handles all monitor requests 
made by the user program. The user enters the Request 
Entry Processor via an indirect return jump to NONI- The 
Request Entry Processor inhibits all interruptsr saves the 
user's registers G? r Ar Ir and return address in an area 
unique to this requestr and then enables interrupts- The 
Request Entry Processor is re-entrant beyond this po i nt r 
and works only with the data area unique to this request* 
The I-register is used to hold the address of this unique 
area which is called volatile storage. The location of 
the parameter list is then stored in volatile. If this 
request has an indirect reference to the parameter listr 
the return address to the program is adjusted to return 
control to the next sequential instruction. If this 
indirect call was made as the result of the completion of an 
I/O operationr the registers are adjusted to make this look 
like a scheduler call since the request code in the ussr-'s 
request parameter list may not be altered. Control is then 
given to the request processor specified by the request code 

1 M- b Restrictions 

The I-register must be conserved throughout the request 
processor called since it contains the address of volatile 
storage. Each request processor must be re-entrant since 
it runs at the requestor's level- When each request 
processor finishes it must return the volatile core storage 
by jumping to REtfXT- 

Label Op Address 

JMP- -CAREtfXT} Address of request exit. 

REQXT is contained in 
AREtfXT. 

NOTE: The *MINI MONITOR REQUEST ENTRY* is identical in 
every way with this module with a single exception: It 
is equipped to handle only 13 requests. 
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1M-7 Adding Requests 

Uhen adding requests with codes larger than 13 consult 
the chapter dealing with the protect processor for 
necessary changes. 
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1S.0 Processor for READr WRITE Format READr Format WRITE 

IS. 1 Entry Interfaces 

The Request Processors -CTlr T2r and Tb> are entered from 
the Request Entry Processor with the Ar Q and I Volatile 
set up as shown below* 

Register Contents 

A Am-0 i s tne location of the parameter list. 

If AlS=0r then the reference to the parameters 
in the call was direct- Otherwiser Al5=l- and 
the reference was indirect. 

£ Absolute address of the request processor being 
executed. 

I I contains the location of an fl-word block of 
vol at i le < 

Volat i 1 e Storage Mnemon ic 

/""\ -CI} + V£ Q saved by Request Entry 

^-^ Processor. 

-CI} + 1 VA A saved by Request Entry 

Processor. 

■CI} + 2 VPL Used to hold request priority 

leve 1 . 

■CI} + 3 VR P-register saved by Request 

Entry Processor- If indirect 
allr P is already incremented 
by 1 for proper return address 

•CI} + M VI The I-register saved by REP. 

-CI} + S VPTR Used to hold the user's para- 

meter list locationr also in 
A above. 

•CI} + b VTPE Used to hold the preceding 

thread location. 

-CI} + 7 VTMP A temporary used to hold 

logical unit number- 

15. E Exit Interfaces 

Exit to the Driver*. 

The driver will be scheduledr if the device associated 
with this logical unit is not busy- The Q register upon 

O entry to the driver initiator will contain the location 

of the physical device table entry for the device- 
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Exit to the User: 

The request processor returns control to the REtfXT where 
the volatile storage is released and control is returned 
to the ca I Ier • 

Upon return to the userr the registers Ar I and <3m-D will 
be restored. If ^15=1 r the thread location in the parameter 
list is not zeror implying that this request is already 
on some other thread. In this caser no action will be 
taken on this call. This action is apparent on I • to 
protected callers. 

Scheduling of the Completion Addressr C 

Control will be returned to the Completion Address C at 
level CP when the 1/0 requested has finished or if the 
device is down and no alternate exists. A message will be 
typed in forming that the unit is down. Q w i I I zontain 
word 3 of the parameter I ist- The high order bi:s of Q 
will contain the error code V. 

3i5.3 Internal Description C \ 

Requests are threaded onto the logical unit according to 
Request Priority. If the associated device is not 
assigned to a logical unit and is operational r the driver 
for the device is called'., or, if ^he device has failed 
and has no alternate, the completion address is schedule' 
with an error code indicating failure returned to the 
completion address. Subroutine A.TSUBr in the Alternate 
Device Handler, Section 17. n, is jsed to obtain the 
alternate logical unit if required. 

NOTE: The "MINI" RW PROCESSOR* module is identical to 
this module. If the "MINI ERROR PROCESSOR" modu i e is 
usedr ALTSUB simply returns to tht? caller- 

1S.M Request Code Zero 

The zero request code is used to cause mass storage reads 
which result from SCHDLE requests- r or example, if a mass 
storage resident program is scheduled, the SCHDLt request 
processor passes the system direcory entry to t^e SPACE. 
, processor for allocation of space The SPACE processor 
then passes the system directory > ntry to this processor 
to effect a transfer of the program from mass storage. 
The apparent request code carried in the system directory 
entry is zero. 
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Many modules are non-res i dent r i-e-r they are not kept in 
core- Therefore r when they are operated r it is necessary 
to read them in from the library. There is an area reserved 
for this purpose r the size of which varies from system to 




j nun - ['us i ufczn u pfuyrcun (.umpmous i l>s> i uuluiuiu i o mus>u 

cause the area allocated to itr to be restored to the block 
of empty space available for allocation to other non-resident 
programs. The SPACE and RELEAS requests deal with these 
operat i ons. 

Scheduling a mass memory resident system directory program 
causes the following operations to be executed. 

1- Space is assigned in the allocatable core area- 
2. The program is read into core from mass memory. 
3- The starting address of the prograrrw i-e.r the start 

of the assigned core arear is scheduled at the requested 

pr ionity. 

All mass memory resident system directory programs must be 
written to be ^run anywhere^ {using relative addressingr 
etc-} since the program may be assigned different core 
areas on successive operations. 

If it is necessary to allocate space in the non-resident 
area and insufficient space is availabler it may be possible 
to pre-empt that area of core used for job processing. The 
procedure involved is called swapping. 



Restart is 
condit i on- 
simple a ma 
treated as 
by a pseudo 
operated vi 
requests ta 
s ituat ion- 
the pseudo 
«1. This i 
cussed in t 



the initial procedure followed from a dead start 

For purposes of allocating core space in as 
nner as possibler the area to be allocated is 
an I/O device. This pseudo device is operated 

controller -[the core allocator} which is 
a a driver -CDRCORE}. The SPACE and RELEAS 
ke the place of READ and WRITE requests in this 

In order for this operation to work smooth lyr 
device is always considered to be logical unit 
s true for all systems. The modules to be dis- 
his chapter are: 



CORE ALLOCATOR 

DRCORE 

SPACE REQUEST PROCESSOR 
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It-B CORE ALLOCATOR 

lt.E-1 External Symbols 



LVLSTR Level start table 

LEND Level end 

CALTHD Core allocator thread 



lb«E-E Internal Symbols 

MINSIZ Minimum allocatable area {assembled 

as 5> 
MAXNO Largest single precision positive 

number 

lb-E-3 Function of the Program 

The Core Allocator module allocates core to program 
which are. mass memory resident. It also allocates 
core to programs which require additional temporary 
working area at execution time. 

The Core Allocator is required in the monitor on 

all systems which have a mass memory used for ■■"" 

program storage. 

The Core Allocator accepts returned areas of core 
andr if possibler combines the returned area with 
adjacent areas. 

Requests for core allocation are stacked by request 
priority and core is allocated on a priority basis, 
i-e-r the higher priority programs have access to 
more of the allocatable core. 

1 L.E.4 Comprehensive Program Description 

The Core Allocator threads together all the pieces 
of available core memory. Initially there is one 
piece of core which is the entire area» As 
allocations are mader the available area gets broken 
up into many pieces. As pieces are returnedr they 
are regrouped into as few pieces as possible. 

lb.2.M.l Organization of Core 

Total core memory is diagramed in Figure li- 
lt is divided into three parts: Part li- 
the core resident programs constants; 
Part E> the allocatable area% and Part 3> 
unprotected core. 



AA 3777 PRINTED IN USA 



, nnnnnnn _ CONTROL DATA CORPORATION 
3DD0/17DD Systems & Development 



DIVISION 



MAR 5 1971 



DOCUMENT CLASS. 
PRODUCT NAME_ 



iris 

17Q0 BgOS 



PAGE NO. ^-3 



PRODUCT MODEL NO. 



EDDb^.D 



MACHINE SERIES. 



17QD 



Part 5 is allocated by the cone allocator 

according to the request priority in the 
parameter I ist- A fixed amount of the 
available core is available to each priority 
level. As shown in Figure lr higher 
priority levels have access to more of the 
core than lower priorities- This has the 
effect of guaranteeing that many low priority 
programs cannot use an area set aside for a 
high priority program- An area can always 
be available to a higher level by restricting 
the area available to lower levels. The 
core allocator also selects the core from 
the smallest available piece- This has the 
effect of minimizing the number of pieces 
of core that are too small to be usable- 
The technique uses the small leftover 
pieces first while leaving the big pieces 
for future requests. 



CORE 

RESIDENT 

PROGRAMS 

AND 

DATA 



»«■ 



ALLOCATABLE AREA UNPROTECTED 

K level Dr» CORE 



!«■ 



K- 



-LEVEL IS 



Hevel 1 



-LEVEL 14- 



J 



TOP OF CORE AVAILABLE 
TO THE ALLOCATOR 



7fff 



FIGURE 1 
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Core Memory is initialized as follows: 

TOP OF THREAD 



N 




FFFF 



lb 



AVAILABLE 
CORE 



^ 



Length of core 
End of thread 



UNPROTECT 
CORE 



ED 



^y 



FIGURE E 

Individual pieces of allocated core are ogan X zed as shown in 
Figure 3. 

The core allocator stores two control words into the allocated 
core area- The first wordr located at ^A-E^ 7 always contains the 
requested length Nr plus Er and represents the actual length 
of the allocated area* The second wordr located at A-lr always 
contains the address of the areat A. 
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A + N-l 



Contents 



n + a 



A 1 I ocated Area 
of length N 



Actual length of Area 
Location of Area 



O 



FIGURE 3 



After an allocation has been mader core memory appears as 
shown below: 

TOP OF THREAD 



CALTHD 




END OF 

^AVAILABLE CORE* 
THREAD 



Tv 



UNPROTECTED 
CORE 



A I 1 ocated area of ni 
words starting at Ai 



! 

s Available area of N-ni 

words starting at As 



FIGURE 4 
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l ! b*E-M-E Core Allocation Logic 



The subroutiner REdALCr {request allocation! 
actually does the analysis to select the 
available area of memory- The logic is 
discussed below. REG3ALC is called by the 
Cone A I locator Driver with the parametersr 
requested length and level- 

If the requested length is larger than the 
area available to the requested levplr then 
REdALCr immediately returns with a zero para- 
meter to the driver. 

Otherwiser a search of a 1 1 available core 
to the requested level is made to select 
that piece which has the following properties 



1- The piece must contain N+E words 
available to the requested level- 

2. The remaining piece -[after N+E words 
are allocated} is smaller than the 
corresponding piece of a 1 I other a I 1 o- 
eatable areas to the requested I eve I .^ 



is foundr then the parameter 

the Core Allocator Driver- 
ptimal piece is broken into 
tSf and the thread of ava i I - 
ung through the left-over 
-over pieces are restricted 
than MINSIZ so that they 
thread information- Figure 5 
e is broken up into three 

1 lies below the area avail 

I and Piece *E remains after 
ece has been removed. 



If 


no such piece 


-1 


is returned t 


Oth 


erwiser the o 


two 


or three par 


abl 


e core i s str 


piece. The left 


to 


being larger 


can 


contain the 


shows how a p iec 


pieces. Piece n 


abl 


e to the leve 


the 


requested pi 
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Requested 
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CORE 
RESIDENT 



Nl 



An 



_NN_ 
^FF lb 



4 



Piece *»1 




FFFF ltj 



NN 



1 



A I I ocated to 
Request for 
Ng-2 Words 

Piece *2 



UNPROTECTED 
CORE 



UNPROTECTED 
CORE 
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lt«2-M-3 Cone return logic 



1 b- 2 • 5 Tabl es 
LVLSTR 



The subroutine RTNCOR does the analysis 
to combine the return piece ot core with 
the already available pieces. RTNCOR is 
entered from the RELEAS request processor 
-CDRCORE}. 

A search is made to find the first piece of 
available core which is below the returned 
piece- The returned piece is threaded into 
its proper position {the available core 
thread is ordered by ascending core location! 

A check is made to see if the returned piece 
touches its lower and/or upper neighbor- If 
sor the adjacent pieces are combined into 
one piece and the thread is updated. 



This table contains Jj? cells and is located 
in the system table module -CSYSBUF3-. The 
first lb ceils are indexed by priority leve 
Each entry contains the core address of the 
first cell allocatable to programs with 
request priorities of the level represented 
by the index. The last cell contains the 
address of the last cell in the area which 
is controlled by the core allocator- 



lb-3 DRCORE 

lb- 3-1 External Symbols 
LAND 



Address of last location in the area 
controlled by the core allocator. 

LOGIA Logical unit table containing PHYSTB addresses 
for each logical unit- 

CALTHD Core allocator thread. 

RTNCOR Entry to core allocator for releasing space- 

CORE PHYSTB entry for the core allocator- 

LVLSTR Level start table- ^ 

SWAPAR Mass storage address ot area where unprotected 
core contents are saved during swap. Filled 
by the initial izer- 
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UNPIO 
SPASUJ 

LOGE 
RECALC 
AREAC 
lti.3.2 Function of the Program 



Count of number ot unprotected I/O calls 
pending. 

A switch in TRANV used to inform the protect 
processor that a swap is desired. 

Logical unit table containing bhread tops 
for all logical units. 

Entry to the core allocator for allocation 
of space. 

Start address of block controlled by the 
core a I I ocator . 



DRCORE serves as the driver for the core allocator 
and as the request processor for RELEAS requests- 
In this capacity it makes all decisions in the area 
of swapping and stacking calls for space- 

SUAPCK is the entry point to a subroutine used by the 
job processer and library edit programs to count down 
the UNPIO unprotected I/O counter and restart the 
space driver if it is waiting to swap and UNPIO is 
zero. 

1 I* 3 . 3 Requests for Space 

Requests for space come from two sources. 

1. Schedule calls for non-resident system 
directory programs. 

2. SPACE requests. 

1^ • 3 - 3 • 1 System Directory Format 

The scheduler gives control to DRCORE when 
a system directory request for a mass memory 
resident program is made. DRCORE determines 
the starting address of the programr based 
upon the areas of core that are currently 
available and enters this address in word 
lr Sr of the System Directory entry- 
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The format tor the system directory is shown below: 



WORD 

D 

1 

2 

3 

^ 

5 

b 

RC 

RP 



15 1M 



a 7 



CP 



D 


RC 


D 




> 


S ._ 




THREAD 


a 


N 


— .. 


m_ma -c 2^-15} 


D 


mma -cm-o> 





THREAD 



RP 




CP 





















•~ * 















[j 7 words 
per entry 
in the 
Directory 
for Mass 
flemory 
Res i dent 
Programs 



is the request code for the System Directory and is 
zero. 

is the request priority used in the allocation of s~ 
core memory. RP is a number from D to 15- -[set by ^ 
the LIBEDT *S statement}. RP=1 to 3 is reserved 
for use by the Job Processor- 

is the completion priority at which the mass memory 
resident program will be scneduled after the read is 
complete. CP is set tor the Scheduler and is 
obtained from the requesting progranr's scheduler 
call. 

is the star-ting Core address of the program and also 
the first location of the allocated core. This is 
set by tne core allocator. 

is the thread location used to point to the next 
entry on a threaded list. This directory entry 
will be placed on the following threads. 



THREAD NAME POSITION DETERMINED BY 

Core A I locator RP 

Mass Memory I/O Driver RP 

Scheduler CP 



WHEN 

after scheduling 

after a I 1 ocat i on 

after Mass Memory 
Read 
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The thread location is set non-zero 
by the Cone Allocator Request 
Processor and is cleared to zero on 
comp let ion- 

is the parameter passed from the 
requesting program to the requested 
program. 

is tne length in words of this program 
on mass memory. 

is a double length word containing tne 
mass memory address of tnis program- 
The first word contains the most 
significant 15 bits- The second word 
contains the least significant IS bits 



1^-3-3- E SPACE Requests 



The user program may make a Hon i tor request 
for allocating core. The core area will be 
allocated to the requesting program and must 
be returned by the requesting program before 
it will be reassigned to another program- 
The list of parameters is as follows. 



PARAfl = 



IS 


m 




T 


fl 7 




M 


3 




U 


D 




RC 




i 

X i 


RP 






CP 






C 
















THREAD 










Q 


N 



RC 

X 

RP 



o 



CP 



is the space request code and is equal to 1U. 

is a relative/absolute indicator modifying C- 

is the request priorityr the relative priority of 
tnis request used to determine the position on tne 
core allocator thread and also to determine area of 
core allowable. RP is a number from M to IS. 

is the completion priorityr the level at which 
control will be returned to C- 
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THREAD is the thread location used to point to the next 
entry on a threaded list. This monitor request 
will be placed on the following threads: 

THREAD NAME POSITION DETERMINED BY UHEN 

Core Allocator RP after request 

Scheduler CP after allocation 

The thread must initially be zeror and is reset to zero on 
complet i on. 

Q contains the address of the area allocated and is 

in the Q. register whfen control is given to the 
completion address r O If allocation is impossible 
Q. w i 1 1 be set negative. 

N is the number of words requested. 

It. 3*3-3 Internal Description of Allocation 

The Space Driver DRCORE is operated by a ^--^ 
SCHDLE request from the request processor \_J 
-Cjust like any other driver}. It uses 
subroutine FNR for new requests and uses 
the Core Allocator Subroutine CORALC to 
obtain the space required. If sufficient 
space is available then COMPRG? is used to 
complete the request. Q w i I 1 be set to the 
address of the allocated area when the 
completion address for the space request is 
scheduled via COMPRG?. If it is impossible 
for sufficient space to be available and 
swapping is in effect then the completion 
address will be scheduled with 0. set negative 
denoting an error. Errors of this type due 
to system directory calls cause the system 
directory call to be ignored but cannot be 
detected by the caller as no completion 
address is available. 

If insufficient space is not available then 
an attempt is m=i de to swapr the request is 
rethreaded and the driver is set v not busy 7 . 
If core is released before swapping is 
effected r then the space driver will be re- 
entered and the request will be completed i f 
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sufficient space is available- Otherwise 
the request will be processed after the core 
swap area is released. For swapping to be 
executed the following conditions must all 
be true- 

1- The completion priority is greater than 
E. This is necessary since programs of 
level E and below are not operated after 
a swap since they might involve job 
process ing. 

E- A swap is not already in effect. 

3- A suitable time internal r since the last 
swap has passed. 

M. No unprotected I/O is in progress. 

If any of these conditions are not fulfil Iedr 
the request is put back on the core request 
thread just before DRCORE exits to the 
d i spatcher • 

Add 1 1 1 ona I I y r in the case of condition Mr 
SPASU is set non-zero so that the protect 
processor will schedule DRCORE whenever 
UNPI0=D and the allocator is not busy. 

If the above conditions for swap are fulfil Iedr 
then the f u I I ow i ng operations occur: 

1- A write is started which transfers the 
contents of unprotected core to a 
designated area on mass storage. This 
area is set up at system initialization- 

E- A loop is scheduled at level E to lock 

out all programs at that level and below. 

3- The LVLSTR table and LEND are updated 

to reflect the additional space available 
for a I I ocat i on • 

M . SUAPON is set to oner to indicate a 
swap has occurred. 

At the completion of these operations the 
space driver is marked ^not busy* 7 and the 
request that caused the swap is re-threaded 
to the top of the LOGE request thread- 
Uhen the swap transfer to mass storage is 
completedr the space driver resumes as 
f o 1 1 ows. 

1- The core allocator is entered to reiease 
the space just made available- 
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E- The area is protected. 

3- A space request for the swapped^area is 

added to the wait list for threading 

on the allocator thread at completion 

of DRC0RE processing. 
M - A new attempt is made to allocate the 

space to the call which caused the swap. 

When enough space is released so that the 
area is again available for job processing 
{the SPACE request made above is completed} 
the above procedures are reversed and the 
job is resumed as if no swap occurred. 

NOTE: For swapping to combine the allocatable 
^unprotected v areas r the space request 
processor must be the last resident module. 

The priority level of the space driver is 
determined by the completion priority set 
in Uord of the CORE physical device table- 
It is usually set to seven -C73-. When a swap 
occurs the space driver must set all the ^^ 
protect bits in the unprotected core area-l^ } 
To do this requires b-b micro-seconds per 
location. Thusr for an v unprotected v area 
of size 10K the driver level will be busy 
in this loop for approximately bb milliseconds 
when a swap is requested or released- 



The space driver rethreads a reque 

to the allocator thread if it is n 

to allocate enough space for the r 

that time. No attempt is made to 

lower priority requests even though they may 



st back on 
ot possible 
equest at 
process 



require less space. The exception 
rule is if the request to be re-th 
has a completion priority of less 
•£3>. These requests are put on a 
temporarily and then an attempt is 
allocate space to the next request 
allocator thread. When any other 
have been processed requests on th 
thread are returned to the allocat 



to this 
readed 
than three 
wait thread 

made to 

on the 
requests 
e wa it 
or thread. 
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On completion of job process 
JOBEND in the Manual Interru 
is entered to cause a core s 
done by making a special spa 
can only be satisfied at the 
priority by a cone swap. Th 
so allocated is released whe 
processor is requested. Thi 
only four cells for the alio 
at the end of the ^unprotect 



ingr routine 
pt Processor 
wap. This is 
ce request that 

given request 
e special area 
n the job 
s area occupies 
cator thread 
ed area** 



Unnecessary swapping is th 
the job processor is not i 
swapping on temporary over 
processing can be avoided 
minimum interval between s 
must be set up \/ery carefu 
programs that are not inde 
assigned to the same reque 
they must have separate a I 
which to run- It is not s 
provide a total allocatabl 
request priority sufficien 
programs since one of the 
assigned to the middle of 
insufficient area for the 



us avoided when 
n use. Excessive 
loads during job 
by setting the 
waps. Table LVLSTR 
I 1 y not i ng that 
pendent cannot be 
st pr i or ity r i .e. , 
locatable areas in 
ufficient to 
e area at one 
t for two dependent 
programs could be 
this area leaving 
other program. 



lb.3-5 RELEAS Requests 

it.. 3-5.1 Monitor Request for Returning Core 

All programs that have been allocated core 
memory* must return the allocated core to 
the Core Allocator* when they are finished. 
This includes all mass memory resident 
programs . 



The calling sequence is shown below: 



IS m 



PARAM+0 
+ 1 



m 



RC 



t a ? 
c 



1 0, 

1 IP 



o 



RC is the request code twelve -C123- for returning core 
X is an absolute/relative indicator. 



R 



is the return control indicator. 

If R=0r control is given to the dispatcher after core 

is returned. This is the value of R to be used when 
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a program returns the core in which it resides. Since 
the core will be re-a I I ocatedr the program residing 
in it may be destroyed. Thus control is not returned 
to the program but to the Dispatcher instead- Other- 
wise R-lr control is given to the user at the next 
instruct i on - 

C specifies the area being returned. 

If Cis=0r X is ignored and C^-O is the absolute core 
address of the area being returned. {absolute direct} 

If Ci5=l and X=0r then Cm is the location that 
contains the absolute core address of the area being 
returned. {absolute indirect} 

If C;l 5 = 1 and X = then C14-O is a IS bit relative 
address which when added to the address of the 
parameter list gives the core address of the area 
being returned -Crelativer direct! 

Note that relative indirect is not allowed- 

Notes on returning core: 

User programs must return each piece of core which they have 
been allocated. Otherwise the piece of core will remain 
allocated indefinitely- Each piece must be returned once 
only. 

A check is made to determine if the area of core being 
returned belongs to the allocatable area- If the area of 
core being returned is outside the allocatable arear then 
the request is ignored and control does not come back to the 
userr but instead goes to the Dispatcher. Using this feature 
all programs r whether mass memory or core res i dent r can be 
written identically. At the end of a programr the RELEAS 
request is made with Rr the return indicatorr set to zeror 
and C specifying the start of the program. For Cure resident 
programs no core is returned and control goes to the dispatcher 
For mass memory resident programs r the core is returned and 
control is given to the dispatcher. The coding for both 
core resident and mass memory resident routines is the same. 

lt-4 SPACE REQUEST PROCESSOR 

The SPACE Request Processor is entered in the same manner 
as the R/U Processor- Its purpose is to set necessary 
parameters {logical unit number ? etc} so that the R/U (~^) 
Processor can complete processing of the request- In w 
additionr this processor contains the block of core cont- 
rolled by the Core Allocator and the restart program. 
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lt.M-1 External Symbols 

CKTHRD Routine in R/W Processor which checks for 
non-zero thread- 

LEND Address of LOC that contains LAND in DRCORE. 

SAVLU Location in R/W Processor to which the SPACE 
Request Processor exits- 

CALTHD Cone allocator thread location in SYSBUF- 

RPNASK flask for request priority 

IDLE The level -1 idle loop. 

DTINER Entry point to diagnostic timer 
It-.M-E Internal Symbols 

AREAC Start of allocatable core area- 
Cj AVCORE Size of the allocatable core area- 

LAND End of the allocatable core area 

AREAlr AREAEr AREA3r AREAM Size of areas 1- M . 

lty L 4-3 Restart Routine 

Since this program is operated once immediately 
after autoloadr it is located in the block to be 
controlled by the core allocator. 

It is entered via the following procedure when the 
system is on mass storage. 

1. Ilaster clear the machine. 

2- Depress the autoload button on the mass storage 
device. 

3 Depress the run switch- This causes the machine 
to execute a program which reads the resident 
portion of the system from mass storage. Uhen 
this is done» the program jumps to the address 
specified in location lr which is the address of 
the restart program. 



O 



The restart program performs the following operation 
before jumping to the idle loop. 

1- Protects all locations which must be protected 
and unprotects all others 
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S- Enables the timer interrupt and initiates the 

diagnostic timer if present. 
3- Requests that the protect switch be activated. 

The 1573 Line Synch- Timing Generator {timer} is 
assumed to be interfaced via a 1S7D Data and Contro 
Terminal -CDCTJ that is assigned to Equipment No- A 
It is started by an output with A=A00Dif If this 
output results in a reject r the following message 
will be printed on the output comment device: 

TIMER RJ 

This message will occur if the Timer is not present 
or if the MDDhZ power supply is switched ;off or the 
equipment code assigned to the DCT is not A- 

The message PP is then typed to request that the 
operator set the protect switch ON and enter an ". 
On input of an " CR the Restart program exits by a 
jump to the level 1 idle loop IDLE. 
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17-0 PARANE " Parameter List Conversion Routines 

20.1 Program Function 

Four routines are provided in this module for the 
purpose of decoding parameters in monitor requests. 
The parameters decoded are: 

LU " Logical unit 
S " Starting address of 1/0 buffer 
N " Maximum number of words to be transferred 
C ~ Completion address 

20- B Entry Interfaces 

The entry points are as follows: 

LUABS 
SABS 
NABS 
CABS 

The routines are entered by a RTJ to one of the above 
entry points or by an indirect RTJ to locations BC~BF 
in L0C0RE. On entry Q contains the location of the 
parameter 1 ist • 

20.3 Exit Interfaces 

All routines exit with the decoded parameters in (2. 

In additionr SABS exits with the location of the S 

parameter in A. A and Q are not conserved r but I 

remains unchanged during the routines. 
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PRODUCT MODEL NO. 
lfi.0 TRVEC - Transfer Vector Table 

lfi.1 FUNCTION 

This module functions as a communications area between 
the mass memory resident Job Processor and Library Edit- 
ing modules and core resident modules. TRVEC divides 
functionally into three parts: -CI* the vector table - 
a table of flags and addresses necessary for communication 
between core resident and mass resident programsn -Cfi> 
JBCNCL - routine to schedule either JBKILL or PROTEC 
and -C3> JPRETN -. routine to facilitate return to either 
T7 or JPLOAD from the Loader - 

lfi.fi ENTRY POINT NAMES AND FUNCTIONS 

TRVEC Entry Point to TRVEC module. 

TRANV Contains the absolute address of the Job 
Processor transfer vector table. 

JBRROE Location in JOBENT to Process Job Processor 
modules. 

ERRNSG Absolute address of ERRM routine in JOBENT. 

MIBUF Absolute address of MIPBUF buffer in JOBENT. 

TRNVEC Absolute address of TRNTBL buffer in JOBENT. 

LIBET Contains location in LIB in JOBENT module 
{routine to schedule LIBEDT*. 

RECOV Contains absolute location of RECOVR in JOBENT 

module {routine to schedule the Recovery program} 

RELS1A Location in JOBENT to release a specified file. 

JOBIND A flag which indicates whether the Job 
Processor is in core. 

UNPIO Contains the number of unprotected I/O calls 
pending. Used by the Core Allocator to 
indicate when a swap may be made. 

IUP Pointer to the comment device. Used by the Job 
Processor {initially set to lflFD>. 

SPASU Flag which is set non-zero when the Core 
Allocator wishes to swap core. 

NSTACK Max- number of stacked requests* 
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V RESET Flag when set indicates to JBKILL to change 
IUP back to its initial value -ClflFD lb >- 

PC0MFL Protected Common Flag -CLIBEDT}. 

PR0RET Contains the absolute address in JPL0AD to 
return to after P ROT EC is scheduled. 

JPSUT Temporary location for MIINP buffer address 

or an index to the tranta table or a negative 
value set by J0BENT or JBKILL. 

FILE1 Contains the address of the area in allocatable 
core where JOBENTi Tlln T7t TS and T3 are 
brought into. 

FILES Address of the area for the Job Processor and 
LIBEDT modules. 

FILE3 Address of the area for the Protect Processor 
and JBKILL modules. 

FILE 1 ! Address of the area for the tape driver buffers. 

L0CF Contains the location of the routine in the 
Protect Processor which puts out 301 and JOB 
error messages. 

LPTRS Location of PTRs in the Protect Processor. 

SUTCH Switch to lock out Job Processor when LIBEDT 
or the recovery program is in operation. 

L0ADIN Flag for protect processor to allow the loader 
to read and write below the scratch area on 
mass storage. 

UNPTIM Number of unprotected timer requests outstanding 
{checked by JBKILL before job is terminated}. 

J KIN Contains the address of JBKILL when in core. 

JBCNCL Job Processing cancel routine 

JBCNFG Set when JBKILL is active. 

JPRETN Routine to interface between loader and Job 
Processor modules- 

JPRET1 Contains a return address to T7 or JPL0AD. 
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lfl. 3 EXTERNALS AND DESCRIPTION 

PROTEC - An entry in the system directory. 

The mass memory resident Protect Processor- 

Ifl.Lf ENTRY INTERFACES 

None 

Ifl.S EXTERNAL INTERFACES 

Within the JBCNCL routine an exit is made to the 
dispatcher to schedule either PROTEC or the starting 
address of JBKILL- Within the JPRETN routine an exit 
is made to either T7 or JPLOAD depending on what 
address is stored in JPRET1. 

Ifl.b GENERAL PROGRAM INFORMATION 

lfl.b.1 The equate of NSTACK to 5 sets the maximum number of 
I/O requests that may be stacked at one time. 

lfl. 7 GENERAL DESIGN PECULIARITIES 

lfl. 7-1 If a new entry is made to the vector tablei it must be 
inserted following the constant RELS1A. The constants 
from TRANV through RELS1A are part of a table transfer 
from JOBENT. 

Ifl.fl PROGRAM LOGIC 

lfl.fl.l The JBCNCL routine first checks the job cancel flag 
-CJBCNFG> which is set if JBKILL has been scheduled. 
If scheduled jump to the dispatcher. If not scheduled 
add one to JBCNFGi set the Q. register negative to 
indicate that JBKILL is requested and check the JBKILL 
in core flag -CJKIN}. JKINi if non zeroi will contain 
the starting address of JBKILL. If JBKILL is inn 
schedule that address and if it is not inn schedule 
the Protect Processor and jump to the Dispatcher - both 
the address and PROTEC are scheduled at level two so 
that no other Job Processor routines may interrupt them 
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n.D TMINT 

TMINT processes TIMER requestsr timer interrupts and delay 
expirat ion. 

1^.1 External Symbols used by Timer Package 

SCHERR Used to exit if the schedule is full 
TIMACK Acknowledge code for time interrupts 

IT-E Time Request Processing 

1T-2-1 Entry Interface 

Entered from the monitor entry for requests via 
a jump. *I? contains location of volatiler and 
V A" contains location of the request. 



O 



11-B-S Exit Interfaces 

Exit is made to SCHERR if no schedule stack space 
remains open. Exit is made to request exit after 
the request has been added to an appropriate stack 

1T-S--3 Internal Operation 

On entry r the request processor translates the 
completion address and attempts to fill an empty 
schedule stack entry with a SCHDLE request at the 
level specified in the TIMER request. If no 
empty existsr exit is made to SCHERR. 

The newly filled schedule stack entry is then 
threaded to one of H lists depending on the *U* 
parameter- The callers delay time is added to 
the stack entry as the "Q v parameter. Exit is 
then made to the request exit. 

1^.3 Time Interrupt and Expiration Processing 

After the interrupt is acknowl edgedr each of the counters 
for the M lists -[see fl.M.33- are examined to see if one 
count for that list has expired. If nor the respective 
count is decremented and exit is made to the dispatcher. 
If the count is expiredr it is reset and the threaded 
list corresponding to that counter is examined. The 
delay in each member of the list is decremented. Those 
delays which are decremented to zero cause SCHDEL requests 
which result in operation of the concerned program. When 
this process is completer the next counter is decremented 
etc. 
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If the acknowledge of a time interrupt is rejected r the 
program will exit to the dispatcher- 

lc\.^ Installation 

The TMINT module may be added in the same way with one 
additional requirement. The entry point name ^TlfllNT* 
must set as the primary processor for the interrupt line 
where time interrupts are trapped. This is done by 
suitable re-assembly of L0TftR£ module of the system 

n.5 Internal Symbols used by TMINT 

These symbols are defined via E<3U pseudo operation and 
can be easily deduced from the listing. 
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EO.O DTnER 

This diagnostic timer module processes I/O hang ups- 

20-1 External Symbols used by Diagnostic Timer 

The starting address label for each PHYSTB entry r to be 
interrogated by this moduler is declared as an external 
symbol • 

20- 2 Diagnostic Timer Operations 

This module is operated periodically as the result of a 
TIMER request generated by itself. The first TIMER 
request is made in the startup routine at autoload time. 
On entryr this module decrements the clock cell -tin PHYSTB3- 
of each non-idle device. If the clock cell becomes minusr 
the device is assumed to be hung up and the error entry to 
the driver is scheduled. When this process is complete 
for each devicer the module makes a TIMER requestr to 
cause its next executionr and exits to the dispatcher. 

20»3 Insta 1 lat ion 

The Diagnostic Timer module need only be added to 
resident -C«L statement! during system initialization. 

20- M Internal Symbols sued by the Diagnostic Timer 

EDCLK Index to diagnostic clock in each PHYSTB entry 

EDPGM Index to location of error routine in each PHYSTB 
entry 

SECOND Number of timer pulses per second 

DELAY Number of seconds between successive operation 
of the diagnostic timer 

DTLVL Priority level at which the diagnostic timer 
operates- -[assembly value is 13- > 

NUMPU Number of physical devices 
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Sl.D MINT 

The manual interrupt program is entered at the level of the 
teletype driver -Cor equivalent} from that driver- On entry 
at MI the flags MIB and MIBX are checked. If either flag is 
set the entry is ignored and the program exits to the dispatcher. 
Otherwise the manual interrupt program continues by scheduling 
itself down to level 3- Note that flags MIB and MIBX are not 
set or tested by the teletype driverr the driver simply schedules 
NI at its own level. 

Nb attempt is made to allow the manual interrupt to interrupt 
the current request in progress on the comment device -Cif any}- 
Therefore r the current request must be completed by allowing 
the type out to finish and/or entering a carriage return to 
complete input before the Manual Interrupt Processor can output 
MI and request operator input. Requests in progress may also 
be completed by causing the comment device to fail provided 
it is assigned the dummy device as an alternate -[see 17. D>. 

After scheduling down to level 3 the manual interrupt processor 
types ^MI^ 7 on the comment device and requests an input of up to 
SM characters on the comment input device. While waiting for 
input the program hangs in a loop at level 3 thus suspending 
job processing. If the input request fails it is repeated. 
Otherwiser thei input buffer is checked. 

The first character of the input buffer -CMIINP} determines 
whether the statement is a job processor statementr i.e-r if 
the first character is an asterisk ■£"}. If not an asterisk? 
and the program MIPRO is present r this program is scheduled 
via the system directory entry for MIPRO with 0. set to the 
address of the MIINP buffer. MIPRO may be a core or mass-memory 
resident system directory entry. If MIPRO is not present -Ci-e-r 
and unlimited external} a JOS error is typed and the program 
clears MIBX and exits. 

If a Job Processor statement is entered and the job processor 
is not in core -CJ0BIND = 0} and is not locked out -CSUTCH = 03- then 
the job processor entry module JOBENT is scheduled at level 
zero with Q. = address of MIINP. If the job processor is already 
in core -CJOBEND^D} only the following job processor statements 
are accepted. 

A> Job Processor not locked out -CSUTCH = 0} 

*Z Terminate Job Schedules JBCNCL at level E 

mR Restore l-u. Sets HIBX 

Schedules RESTOR at level 3 
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* Continue No action 

Resumes job processing at level 
B> Job Processor locked out -CSUTCH = FFFF> 
Library Edit or Recovery in operation 
*Z Terminate Job Sets SUTCH=1 

«R Restore I.u- Sets NIBX 

Schedules REST0R at level 3 

* Continue No action 

Resumes job processing at level 

Any statements other than the above will cause a JOS error 
if the job processing is in core. 

If MIBX flag is set when a high level job processor statement 
is accepted and is cleared by the appropriate module -CREST0R 
or JBCHGEJ when the statement is processed. These modules 
run at level three and do not return control to the job 
processor on completion in this mode of operation. If MIBX 
is set further manual interrupts are ignored. 

MIBX is also set when NIPR0 is scheduled and must be cleared 
by that program on exit. 

The MIB flag is set on entry to the manual interrupt processor 
and cleared on exitr or by the job processor if at level zero- 
MIB is also set when transferring control between job 
processor modules to prevent an *Z from being entered at 
that time- 

RELFLE is entered from the Job Processor to release the 
allocated core for each of the four possible allocated 
areas used by the Job Processor- The addresses of these 
allocated areas are saved at FILE1» FILEEr and FILE 1 * 
-[see 2L>.2-2}. After releasing the allocated core J0BIND 
is reset to zero. 

Provision is made to force a core swap when the Job 
Processor is not in use in orcer to take advantage of the 
extra core available to the protected programs and to 
eliminate unnecessary swapping. This is done by routine 
J0BEND which is entered after executing FELFLE- A space 
request is made that can only be completed when swapped. 
Two locations will then be allocated at the end of the 
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swapped area. The space thus allocated is not released 
until a new Job Processor statement is entered and JOBENT 
is scheduled. 

NOTE that when the Job Processor is not in user the level 
two loop set in operation by the core swap will be in 
effect. All protected programs must be run above level two. 
Since the swap remains in effect any overloads in the normal 
allocatable area will be accommodated immediately by assigning 
part of the swap area- 

21*1 Load Requirements 

The Manual Interrupt Processor is a core resident program- 
It must be loaded under an *L System Initializer statement 
and before *Mr mass storage resident Job Processor modules- 

21- E Program Entry Points 

MI Scheduled by the Comment Device Driver at the 
drive priority level 

RELFLE Releases core defined by FILElr FILESr FILE3r FILEM. ("~ N ; 

JOBEND Forces a core swap by a special space request when 
Job Processing is finished. 

21-3 Program Switches and Flags 

MIB Manual Interrupt Busy Switch 

Zero = Not busy 

Non-zero = Busy 

Must be set to zero before another manual interrupt 
can be processed. 

MIBX Manual Interrupt Busy Switch secondary level 
simulator to MIB 

SVLU Saves the Job Processor comment logical unit in 
case an "V statement is in effect. 

MIINP EM character manual interrupt input buffer. 
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El-M External Switches and Flags 

SWITCH Job Processor lock-out switch 

D = not 1 ocked out 

$FFFF = locked out 

1 = locked outr "Z has been entered 

JOBIND Set by Job Processor to indicate if Job Processor 
in core and its entry point location 

IUP Job Processor Logical Unit Number 

El- 5 External Programs 

JOBEMT 1st Job Processor module to be executed. Upon 

schedulingr Q contains location of NIINP buffer- 

NIPRO System Directory Entry Name for the program to be 
scheduled when a statement is entered that does 
(J not begin with an asterisk- Q contains the 

^-^ location of the NIINP buffer entry- NIPRO must 

clear NIB on completion. 
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EE.D Hanual Interrupt Processor -CniPROl 

EE.l Function 

Mipno processes all non-job processor statements. 

EE.2 Entry Interfaces 

Mipro is scheduled at level 3 by MINT 
<3 = address of the ASCII input buffer 

EE.3 Exit Interfaces 

Nipro schedules the appropriate processor for the control 
statement entered. 

2E. 1 ! Control Statements 

££ Diagnostic timer is scheduled -[start timer> 

=S Schedule system directory program 

SELF Dump Engineering File 

N0TII1E Disable Timer 

SYSCOP Start System Checkout 

DB Start On~Line Debug Program 

DX Stop On"Line Debug Program 
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EE.5 Tables 

EE.5-1 Vector Table 

Table of one word addresses to statement processors 

EE.S-2 Function Code Tables 

C0D1 "■ Control statement r characters 1 and E 
CODE " Control statement r characters 3 and M 

SE.5.3 Index Table 

Table of addresses for scheduler calls 
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2 3. D JOBENT JOB PROCESSOR CONTROL MODULE 

23.1 FUNCTION 

The JOBENT module has three primary functions- 

a- Calculates the absolute addresses of the 

Loadern Corei Exit and Status request processors 
and stores them in the RCTV table NM0NI- 

b- Holds the input and transfer table buffers 
which are accessed by the other Job Processor 
routines- 

c- Releases and schedules the correct Job Processor 
LIBEDT or System Recovery module as determined 
by the parameters passed to it- 

23-2 ENTRY POINT NAMES 

JBENT 
JBPRO 
MIPBUF 

23- 3 EXTERNALS AND DESCRIPTION 

PCOMFL LIBEDT protected common flag -CTRVEO 

JBCNFG Job cancel flag -CTRVEO 

MIB Manual interrupt lockout flag {MINT} 

FILE1 Contains absolute address of JOBENT when 
in core -CTRVEO 

FILES Contains absolute address of JP or LIBEDT 
modules when in core -CTRVEO 

JOBIND Job Processor in core flag -CTRVEO 

SUTCH Switch to lock out the Job Processor when 
LIBEDT or system Recovery is in operation 
■CTRVEO 

LIBEDT Library Editing Module 

RCOVER System Recovery Module 

UNPTIM Number of unprotected timer requests out- 
standing -CTRVEO 

RELFLE Routine to release all files -CMINT} 
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T7tnr 



JPSUT 



LOCF 

JOBPRO 

JPLOAD 

JPCHGE 

JPT13 

RCTV 

RESTOR 

TRANV 

JKIN 

T3 

T5 

T7 

Til 



Temp- loc for MIINP buffer address or 

an index to the tranta table or a 

negative value set by JOBENT or JBKILL 

■CTRVEO 

Address of error routine in PROTEC -CTRVEO 

Job Processor Module 

Job Processor Loader Module 

* K Processor Module 

Getfile Request Processor Module 

Request Code Transfer Vector Table- -CNMONI} 

Restore Logical Unit Module 

Contains absolute address of JOBPRO Tranta 

Table -CTRVEO 

JBKILL in core flag -CTRVEO 

Status Request Processor Entry Point -CT3> 

Exit Request Processor Entry Point -CT5> 

Loader Request Processor Entry Point -CT7} 

Core Request Processor Entry Point -CT11} 



23. M ENTRY INTERFACES 

The initial entry to JOBENT is made at JBENT when the 
Job Processor is called with a manual interrupt- After 
processing has begun and prior to FILE1 being re- 
leased! entry to JOBENT may be made at any of four 
routines. 

23-M-l JBPRO - A routine that schedules the requested Job 

Processor module as determined by the parameters passed 
in the A and Q. registers - 

23.LJ.2 LIB - This routine is entered by a jump from JPLOAD 

when it has been determined that a request for ^LIBEDT* 
has been made- 

23. ^3 RECOVR - This routine is entered from JOBPRO if Q. 

register is zero and from JBKILL if negative- The sign 
of Q. upon entry indicates whether the Job Processor is to 
be scheduled upon return from System Recovery. 

23.M-M RELF - This routine releases an area of allocatable core 
depending upon the contents of the Q register on entry. 
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23.5 EXTERNAL INTERFACES 
S3- 5.1 JBENT 



Exit is made via a schedule of JOBPRO- If (3 register 
is negative upon entry to JOBPRO print a "J" and input 
next control statement- 



53-5.2 JPPRO 



Exit is made via a schedule of the requested Job 
Processor module- The d register will contain an 
index to a routine within the scheduled module or an 
execution address- 



23- 5. 3 LIB 



LIB schedules LIBEDT with the return address to LB2 
routine in JOBENT in (2- Upon return from LIBEDTt 
JOBPRO is scheduled with Q set negative to indicate 
that the next control statement has not been read- 



O 



23-5-M RECOVR 



RECOVR schedules the System Recovery module -CRCOVER} 
after having stored its return address in the absolute 
location SEE- Upon return from RCOVER a check is made 
of the value of Q when RECOVR was first entered- If 
(3 was initially negative the Job Processor is scheduled 
with Q negative- If Q was positive a jump is made to 
RELFLE {routine in MINT to release Job Processor from 
core}- 



23-5-5 RELF 



RELF exits to the Dispatcher after releasing the file 
specified. 



23- b GENERAL PROGRAM INFORMATION 
23-b-l ENTTBL 



ENTTBL is a table of relative entry point addresses in 
JOBENT. The addresses are added to the FUA/iJOBENT and 
transferred to TRVEC- 



O 
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53- b. 2 TBL 

TBL is a table of Job Processor module addresses- 
These addresses are picked up by the JBPRO routine to 
schedule the requested Job Processor module- 

23-7 GENERAL DESIGN PECULIARITIES 

23-7-1 BUFFI 

This area of the JOBENT program as indicated by the 
asterisks will be overlaid by the contents of the 
MIINP buffer in MINT or the SMI buffer in J0BPR0- 
MIPBUF is equated to BUFFI for addressing purposes- 

23-7-2 BUFF2 

This area of the JOBENT program as indicated by the 
asterisks will be overlaid by the contents of the 
TRANTA table in J0BPRO- The three locations-i BPSn 
RI and LOADEPt within the BUFF2 area-i must initially 
be set to zerd prior to scheduling J0BPR0- TRNTBL 
is equated to BUFF2 for addressing purposes- 

23-7-3 ERRM and SM 

The ALF statements following ERRM and SM must immed- 
iately precede the BUFFI area- These two statements 
in conjunction with the BUFFI buffer are used to print 
out JD3 and JOM error messages- 

23-7-M ENTTBL 

Any entries made to this entry point table must also be 
made in TRVEC in the same relative position- This 
restriction is made because the table is transferred 
to TRVEC with the table transfer rountine -CMVTBL}- 

23-7-5 TBL 

Any entries made to this table must be made following 
the RESTOR entry due to the indexing scheme in the 
JBPRO routine- 
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E3.fi PROGRAM LOGIC 

E3.fi-! General flow of JOBENT routine 



JOBENT is entered initially 
register containing the add 
rupt buffer -CMIINP}. This 
LOOP routine is entered. T 
contents of ENTTBL table to 
dresses of the Core -CTHli 
and Status -CT3} Request Pro 
and stored in the RCTV tabl 
locations BPSt RI and LOADE 
will be the transfer table 
transfer of the MIINP buffe 
is then accomplished. Upon 
the Load and Go sector numb 
is scheduled with d set neg 
"J" is to be printed out an 
accepted* 



from MIPRO 
ress of the 
address is s 
his routine 

TRVEC- The 
Loaded -CT7>-, 
cessors are 
e in NMONI. 
P are then c 
buffer -CTRNT 
r in MINX to 

completion 
er is set to 
ative which 
d the next c 



with the 0. 


manual inter- 


aved and the 


transfers the 


absolute ad- 


Exit -CT5} 


calculated 


The three 


leared in what 


BL>. The 


MIPBUF -CBUFF1} 


of the transfer! 


one and JOBPRO 


indicates a 


ontrol statement 



The JBPRO routine schedules a job processor module 

as determined by the contents of the A register- 

The module is then scheduled with the 0. register 

either set negative to print out a n J"i set to an 

index within the scheduled module or set to an execution 

address. 

The LIB routine is entered from JPLOAD to schedule 
LIBEDT. 

The LBE routine is entered upon return from LIBEDT 
and exits to schedule JOBPRO* 

The RECOVR routine is entered from either JOBPRO or 
JBKILL to schedule the System Recovery routine -CRCOVER}- 

The RCE routine is entered upon return from the System 
Recovery routine -CRCOVER}. Exit is to either the 
RELFLE routine in MINT or to schedule JOBPRO. 

REL is a routine entered only from within JOBENT to 
release FILES E and 3 if active. Exit is to the calling 
routine. 

RELF is entered from outside the JOBENT module by 
routines wishing to release a file they specify by 
the contents of the d register- 

MRELF is the master release routine that releases the 
file specified. The routine is entered from the JBPRO 
and RELF routines and exits to the sender. 
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23. T SUBROUTINE LOGIC 
23.T.1 JBPRO 



Upon entry to this routine the Q register contains 
either a negative valuei an index to a routine within 
the module to be scheduled or an execution address* 
This value is saved in SAVtfl and the contents of the 
A register is transferred to the 0. register to be used 
as index to schedule the requested Job Processor module 
These index values are as follows: 

D = JPT13i 1 = J0BPR0-, 2 = JPL0AD-, 
3 = JPCHGE and M = RESTOR- 

The requested address is picked up and stored in the 
S. edule Request- The location Fl that contains the 
address of FILEli which contains the FUA of AREAl is 
picked up and a return jump is made to NRELFt the 
master release routine- Upon return pick up in the 0. 
register the contents of SAVfil and schedule the 
proper Job Processor module- 



23.^-2 LIB 



This routine is 


; entere 


id by a 


jump fr 


it is determine 


d that 


LIBEDT 


is requ 


a return jump is made 


to the 


routine 


any outstanding 


files- 


The a 


ddress 


calculated and 


LIBEDT 


is sche 


duled w 


of LBE in the d 


1 regist 


;er- On 


i return 


Load and Go sec 


tor is 


set to 


one and 


MINT is set to 


lock out other 


entrie 


cessor lockout 


switch 


-CSWTCHl 


is cle 


gister and the 


Job Processor 


Switch 


negative and a 


jump is 


; made to SJBPR 


JOBPRO- 









om JPLOAD when 

ested- Upon entry 
REL to release 

of LBE is then 

ith absolute address 
from LIBEDT the 
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s- The Job Pro- 
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E3.T-3 REC0VR 



o 



This routine is entered fcom the SGN0FF -C^Z} routine 
in J0BPR0 or from SG7 routine in JBKILL if the 
Recovery Indicator -CRI> switch was set. The (2 register 
contents! if J0BPR0 - negative if JBKILU, are saved in 
SAV(2 to be used on the return from RC0VER. The 
absolute address of the RC5 routine is calculated and 
saved in location SEA to be used as a return from RC0VER 
The System Recovery module is then scheduled- Upon 
return from System Recovery the contents of SAV(3 is 
checked. If negative -Cfrom JBKILL> a jump is made back 
to LBM to schedule J0BPR0. If positive -Cfrom J0BPR0> 
inhibit interrupts! clear the protected common flag 
•CP'COMFLJn clear Job Processor lockout switch -CSUTCH} and 
return jump to RELFLE in MINT to release all files and 
wait for input to MINT. 



E3.1.M REL 



This routine is entered only from within J0BENT. Its 
function is to release FILEE and FILE3 if active and 
if the job cancel flag -CJBCNFO is not set. 



53. 1.5 RELF 



This routine return jumps to MRELF to release the FILE 
specified in the Q register. 
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24. Til - Core Request Processor 

24-1 FUNCTION 

This module is used to set or determine the bounds 
of available core. The A and 0. registers are used 
to pass parameters when a core request is made. If 
A and Q. are zeron the current bounds are passed to 
the requester. If A and 0. are both addresses in unpro- 
tected core the current bounds of available core are 
set to these values. Available unprotected core is 
that portion of unprotected core which is available 
for loading of a subroutine or overlay. 

24-2 ENTRY POINT NAMES 

Til 
24-3 EXTERNALS and DESCRIPTION ,- '"" 

JBCNFG Job cancel flag. Set when JBKILL is in progress 

REG3ERR Error routine in T7 

LOADIN Flag in TRVEC to indicate LOADER is in core. 

24-4 ENTRY INTERFACES 

Til is entered from NflONI with the first word of the 
parameter list in A and the address of volatile in I. 
Volatile contains the requester's Qi A and It the 
return location in the request program -Cwo^d 3>t and 
the pointer to the request parameter list -[word '/.U ■• 

24. S EXTERNAL INTERFACES 

Two possible exits may be made from Til- 

1. Normal exit to RE(3XT in NflONI by an indirect jump 
through location ^BT. ..;.-.- -",•/■'■"" 

2. Error exit to RE(3ERR -Cin T7} made if A and (3 

are not both zero or if either of the addresses in A 
or d is not in unprotected core or if A is not 
greater than Q. 
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EHot, GENERAL PROGRAM INFORMATION 

None 
EM. 7 GENERAL DESIGN PECULIARITIES 

None 

2M.fi PROGRAM LOGIC 

On entry A and Q. of the requesting program ar^ checked to see 
if they are zero. If they are zero the temporary highest 
{contents of location $EC> and temporary lowest {contents of 
location $ED> bounds of available unprotected core are put in 
the requestors A and Q respectively. 

If the requestors A and 0. were initially locations in 

unprotected core -Cwithin the bounds contained in locations $Fb 

and $F7>i then these values are stored in locations $EC and 5ED ^^ 

respectively to define new bounds of available unprotected core- \^J 
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25. D T7 LOADER REQUEST PROCESSOR 

25. 1 FUNCTION 

This routine is used to bring the Relocating Loader 
into the highest available unprotected core* The 
parameters to be supplied to the loader ar& in A and 
£• These are passed to the loader when it is executed. 

25-2 ENTRY POINT NAMES 

T7 
REflERR 

25-3 EXTERNALS and DESCRIPTION 



LOADSD Mass storage System Directory Table- 
JPRET1 Location in TRVEC in which the return 
address to T7 is stored. 

JPRETN Location in TRVEC to which the loader 

returns upon completion- 
JPRET Locations in preset tables in which the 

locations of JPRETN is stored. 
LOCF Location in TRVEC which contains the location 

of F in PROTEC 
LPTRS Location in TRVEC which contains the location 

of PTRS in PROTEC- 
LOADIN Location in TRVEC to indicate the loader is 

in core- 
UNPIO Flag in TRVEC which indicates the number of 

unprotected I/O requests in process- 
SUAPCK Routine in DRCORE which decrements UNPIO 

on completion of an unprotected I/O request- 
JBCNFG Job Cancel Flag. Set when JBKILL is in 

process- -CTRVEO 
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E5-M ENTRY INTERFACES 

T7 is entered from NNONI with the pointer to the first 
word of the parameter list in A and the address of 
volatile in I- Volatile contains the requestors Qi 
A and It the return location in the requestor's program 
{word 3} and the pointer to the request parameter list 
-[word 5>. 

The parameters in the requestors & and A are as follows 

IS ^3 D 

A register 



Q register 



LoU. 


T 


IS 





TNA 



where : 

L.U. 
TNA 



Input unit for loading operation. 
Core location of the entry name of 
routine to be loaded- 
One of the following types of loading 
operation 

Relocatable binary load 
Subroutine load 
Program load 
Memory map 
Entry point look up 
Subroutine loadn no memory map 
Patch to core resident programs -CCREP} 
Set data base 



■CA more detailed explanation of types of loading operations 
can be found in the discussion of the loader}. 

Entry may also be made from Til or T3 to REdERR. 
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25-S EXTERNAL INTERFACES 

Normal exit is made via a jump to the requestor's 
return address. If the Job Cancel Flag -CJBCNFGJ 
is setn exit is to the Dispatcher- 
Error exit is made from REdERR to entry point F in 
PROTEC to print out a JOJE error- The requestor's 
parameter list pointer or the return location is stuffed 
in PTRS in PROTEC to be encoded for the error message- 

25-b GENERAL PROGRAM INFORMATION 

LIC Local loader in core flag 

ONEBIT An equate to absolute location $23 =0001 

25-7 GENERAL DESIGN PECULIARITIES 
None 

25. a PROGRAM LOGIC 

T7 uses a lockout flag L0F to prevent the execution 
of more than one loader request- This flag is checked 
on entry and if set a request error -CJ02} is issued- 
If no errors the lockout flag -CL0F} is set- 

A check is made if the loader is in core- If the load 
type is ln3iM or tn or if the flag LIC is set it is 
assumed the loader is in core- 

If the loader is determined not to be in coren it 
is read into highest available unprotected core {not 
to exceed the location contained in SEC or $Fb which- 
ever is smaller}- The flag UNPI0 in TRVEC is set 
during this process to prevent a core swap during the 
read- 

A jump is made to the loader with the return address 
patched to JPRETN in TRVEC-i with the flag L0ADIN set 
in TRVEC to allow the loader to write below the scratch 
area on disk and with volatile released- 

Upon return from the loader-i if the load type is 0t3\ 
or 7 the flag LIC is cleared- The lockout flags L0F 
and L0ADIN are cleared- 
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EL.O Exit Request Processor -CTS> 

Eta-1 Function 

This request is used by unprotected programs to signal 
completion of a job or a user's completion routine. That 
isn when a computation is completed! this request 
notifies the Operating System of that fact. 

EL. 2 Entry Point Names 

TS Exit request entry 

EL. 3 Externals and Description 

UNPTIM Number of unprotected timer requests waiting 
UNPI0 Number of unprotected requests waiting to be 

completed 
IN TSTK Location of Interrupt stack 
JBCNCL Job cancel routine in TRVEC 

EL.M Entry Interfaces 

+fl = entry from the Monitor 

-(2 = entry from the Protect Processor 

If the entry was from the Monitor A = location of the 
request parameter. 

EL. 5 External Interfaces 

None 
Eb.L Tables 

None 
EL. 7 General Design Pecularities 

None 
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5b.fi Program Logic 

Upon entrancei the Q. register is checked to 
determine whether entry was from the Protect Processor 
or the monitor- If entry is from the monitor 
volatile storage is releasedn and the request 
location is checked- If the request is from protected 
coren TS exits to the dispatcher- Otherwise! all 
stack entries are checked for unprotected core return 
location- If any existi control is returned to the 
dispatcher- 

If none exist n V UNTIN* is checked for being non-zero- 
If so-, *TIMER in effects the flag is checked until it 
goes to zero. Then *UNPI0* flag is checked fo^ non- 
zero- If soi {unprotected request in operation} this 
waits until flag is zero and then schedules JBCNCL and 
exits to the dispatcher. 

t?b.1 Subroutine Logic 

None 
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27«D T3 Status Request Processor 

27-1 FUNCTION 

The function this routine performs is to get the 
request statusn equipment status and location of 
the parameter list of the most recent request 
processed on a given logical unit and return them 
in the requestors (3n A and I respectively. 

27.2 ENTRY POINT NAMES 
T3 Status Request Entry Point 

27.3 EXTERNALS and DESCRIPTION 

L0G1A Table in SYSBUF of PHYSTB addresses arranged 
by logical unit number. 

RE(2ERR Error routine in T7 ^-> 

JBCNFG Job Cancel flag in TRVEG. Set if JBKILL is 
active. 

27.14 ENTRY INTERFACES 

T3 is entered from NMONIwith the first word of the 
parameter list in A and location of volatile in I« 

Volatile contains the requestors Qn A and I registers 
as well as the return location {word 3} and the location 
of the Status request parameter list {word 5>» 

27.5 EXTERNAL INTERFACES 

Two possible exits may be made from T3: 

1- Normal exit to RE(3XT in MONI by an indirect jump 

through location SBT. 
2. Error exit to REtfERR -Cin T7> made if the logical 

unit is not legal for the particular system. 



AA 3777 PRINTED IN USA 



CONTROL DATA CORPORATION 

3000/1700 DEVELOPMENT 



O 



DOCUMENT CLASS. 
PRODUCT NAME — 



_U13_ 



DIVISION 



PAGE NO. 



1,700 OPERATING SVSTFM 



MAR 5 1971 

27-2 



PRODUCT MODEL Kin E00fciM3oQ 



MACHINE SERIES 1700 



27. b GENERAL PROGRAM INFORMATION 

The request parameter list is: 



IS 


m 






=1 


fl 


7 


a 




Request code 







D 








A 


L.U. 




IS 




U 


10 


^T 










where 

L.U. 
A 



the logical unit 

relative/indirect indicator for L.U 



27.7 GENERAL DESIGN PECULIARITIES 

None 

27. A PROGRAM LOGIC 

First the logical unit is found using the A parameter 
to indicate whether LU is the actual logical unit -CA=0>-. 
a signed relative address of the logical unit -CA = 1> 
or the actual location of the logical unit -CA=2>. Then 
it is checked for validity. 

If the logical unit is valid the table of the physical 
device is found. From this the location of the current 
1/0 request parameter list is taken -Cword b> and stored 
in word M of volatile. The last location of the 1/0 
buffer -Cword 11} is put in I of the requestor. The 
request status bits -Cword fl> are stored in the requestors 
0. and the last equipment status read is put in the 
requestor's A. 

27.1 SUBROUTINE LOGIC 

None 
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Efi.D JOBPRO 

Efl-1 FUNCTION 

The functions of the JOBPRO module are: 

1- Read in the Job Processor control statements. 

2- Analyze the statements read in- 

3- Set up the parameters to schedule the processor needed 
to handle the input statements. 

M. Terminate a Job Processor function- 

2fl-2 ENTRY POINT NAMES 

JOBTUO 

26.3 EXTERNALS AND DESCRIPTION 

TRNVEC - Abs. Addr. of TRNTBL buffer in JOBENT - TRVEC 

JBPROE - Abs. Addr. of JBPRO routine in JOBENT - TRVEC 

MIBUF - Abs. Addr. of MIPBUF buffer in JOBENT - TRVEC 

JPSUT - Job Processor Switch - TRVEC 

JBCNFG- Job Cancel Flag - TRVEC 

RELFLE- Release Files Routine - MINT 

RECOV - Abs. Addr. of RECOVR routine in JOBENT - TRVEC 

IP1 - Protect Processor entry point addr. - NIPROC 

VRESET- *V Reset Flag - TRVEC 

RELSlA- Abs. Addr. of RELF routine in JOBENT - TRVEC 

ERRMSG- Abs' Addr. of ERR M routine in JOBENT - TRVEC 

FILE2 - Holds Job Processor Addr. when in core - TRVEC 

NSTACK- Max. No- of stacked requests - TRVEC 

TRANV - Abs. Addr. of JOBPRO TRANTA Tab - TRVEC 

IUP - Pointer to comment device - TRVEC 

MIB - Manual Interrupt lockout flag - MINT 

JKIN - JBKILL In Core flag - TRVEC 

FILE3 - Holds Protect Proc- Addr. when in core - TRVEC 

JOBIND- Job Processor in core flag - TRVEC 

RCTV - Request Code Transfer Vector Table - NMONI 

LOADIN- Loader flag for Protect Processor - TRVEC 

ONE - User subroutine 

AA 3777 PRINTED IN U&A 
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TWO - User subroutine 
THREE - User subroutine 

Bfl-M ENTRY INTERFACES 

Entry to J0BPR0 can be made only at the J0BTW0 entry 
point- Upon entering JOBPROi the (3 register is examined 
to determine where control will be transferred. If the (2 
register is set negative control is transferred to the 
tag "JB"- If 0. is not negative! control is transferred 
to one of five pseudo entry points obtained from the 
TRANTA table. 

1. JBPRO - Return when statement already input. 

2. JOBP - Return when no statement. 

3. JOM - JOM error entry. 
M. J03 - J03 error entry- 

S. RF3 - Return to release File3 and output a n J". 

Efl-S EXTERNAL INTERFACES 

The majority of the Exits from J0BPR0 are to JOBENT to 
schedule the proper Job Processor module as determined 
by the input statement- Exit is made to RELFLE in HINT 
when a:*Z statement is input and the RI {recovery indicator! 
flag is not set. 

Sfl.ti GENERAL PROGRAM INFORMATION 

Efl.b.l Transfer Table -CTRANTA} 

The following table contains relative and absolute 
addresses and flags which are transferred to 
JOBENT before exiting from J0BPR0. 
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TAG 


FUNCTION 


TRANTA 


Abs. loc of J0BTU0 


Rel- to 


JBPRO 


Return when statement already input 


INPBUF 


Abs- Addr- of input buffer in JOBENT 


Rel- to 


JOBP 


Return when no stmt. 


Rel. to 


JOM 


Error return "JOH" 


Rel- to 


J03 


Error return n J03" 




NOT USED 


BPS 


Breakpoint Switch 


RI 


Recovery On/Off Switch 


LOADED 


Loader Entrv Point 


4REG. 


Request No. 


STCK 


Loc of Protect Processor Request Stack 




NOT USED 


NN 


No- of entries in Protec Stack 


Rel, to RF3 


Return to release FILE3 



2fl.fei-2 Table of Job Processor Input Statement Subroutines 

The following table is used in indexing to the 
proper routine as determined by the input statement- 
A value -C(2REG> is picked up from the transfer 
table and is used as an index to the proper routine 
relative to the index base JPST. 



TAB 



RELATIVE 
ADDRESS 


STATEMENT 


BPLOAD 


*B cr statement 


TYPEIN 


*U cr statement 


STDINP 


*V cr statement 


SGNOFF 


*Z cr statement 


SETREC 


*SR cr statement 


RESUME 


* cr statement 



2fl.? GENERAL DESIGN PECULIARITIES 



o 



5A.7.1 Alteration of the JPTAB in J0BPR0 which is used 
to set up the (2REG index value would cause the 
wrong routine from the TAB table to be executed. 

2fl.fi PROGRAM LOGIC 

This module is entered via a SCHDLE request from JOBENT. 
Upon entrance the absolute addresses of JOBTUOn JBPRO 
and TRANTA are stored in TRVEC. The contents of the BPS , 
RI and LOADEP locations in the TRNTBL buffer in JOBENT 
are then transferred to like locations in the TRANTA 
table- 
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A check is then made to see if the 0. register was negative 
upon entrance- If son the next Job Processor statement 
is requested. If positiven (2 contains an index to the 
relative address in the TRANTA table of the routine to 
be executed. 

Internal to the "JOBPRO" module is a list of acceptable 
statements. Associated with specified groups in the list 
is an address of a module to which control is transferred 
to carry out the operation directed by the statement. This 
list of standard input statements for the Job Processor 
includes: 



INPUT 


NAME 


Of SUBROUTINE 


MODULE 


STATEMENT 


TO 


PROCESS 


TRANSFERRED TO 


*K 




CHANGE 


JPCHGE MODULE 


*B 




BPLOAD 




*u 




TYPEIN 




*v 




STDINP 




*Z 




SNGOFF 




*SR 




SETREC 




* 




RESUME 




*R 




RESTOR 


RESTOR MODULE 


*1 




ONE 


ONE SUBROUTINE 


*a 




TWO 


TWO SUBROUTINE 


*3 




THREE 


THREE SUBROUTINE 



v.. 



If not one of the abovei a loader statement is assumed 
and control is passed to the "JPLOAD" modulen otherwise! 
the appropriate routine is set up to be scheduled by 
JOBENT. The following are the input statements that 
refer to "JPLOAD". 

INPUT STATEMENT NAME OF SUBROUTINE 

*ENTRY POINT NAME TRLOAD 

*L RBLOAD 

*X EXECUT 

*P PREJOB 

Statements *1t *2t and *3 are dummy statements which 
produce a J03n statement errors if requested and subroutine 
not present. these are provided so that the user may 
add statements with special functions- These must be 
loaded with a *Y Mn - Job Processor Load. 
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Input statements not recognized by the Job Processor 
{i.e.! does not start with an asterisk]-! are rejected 
and a J03i statement error informs the operator- The 
Job Processor then interrogates the specified device for 
a new statement. All other statements that are not 
recognized! but start with an asterisk are assumed to be 
"entry point" name statements. 

The contents of 0. have been saved upon entry and are checked 
If 0. is negative! entry was made from the Namual Interrupt 
Processor the MIB switch is cleared and input is requested. 
If Q. is positive! entry was made from JOBENT and a jump 
is made to SSI to process the statement. 

The 1st character is checked for an asterisk. If not 
present! a J03 statement message is typed. The End 
and 3rd characters are checked against a table! and the 
proper routine is scheduled at the current priority level. 
Upon returning! J is typed out and another request to 
read is made. The previous loop is again executed. 

All Job Processor functions except the *Z return back 
to the J0BPR0 module to release FILE3 and wait for input 
of the next control statement. If a *Z has been input! 
exit is made to MONT where all files are released. 

ea.^ SUBROUTINE LOGIC 

Efl.S.a MVTBL 

This routine moves the TRANTA table to the TRNTBL 
buffer in JOBENT prior to exiting to JOBENT. Once 
in JOBENTt the requested module is scheduled. 

Efl.T.a JBKMIB 

This routine checks for the Job Cancel flag 
•CJBCNFO set and if clear! sets the NIB flag 
for job lockout. 

25.^.3 JBKILL 

This routine checks the Job Cancel flag -CJBCNFG3-. 
If set! exits to JOBENT to release FILES and jumps 
to the DISPATCHER to await entry from JOB KILL- 
If not set! return is to the caller with interrupts 
inhibited. 
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This routine processes the *B statement- Upon 
entry the Breakpoint Switch -CBPSJ is set. Return 
is through the RF3 pseudo entry point. 



Ea.T.S TYPEIN *U @ 



This routine processes the *U statement which 
causes all control statements to be read from the 
comment device. Upon entry the constant SlflFD is 
stored in pointer to the comment device -CIUPPJ. 
The *V flag -CVRESETl is cleared and return is 
through the RF3 pseudo entry point. 



sa.i.b STDINP *v <g> 



This routine processes the *v statement which causes 
all control statements to be read from the standard 
input device. Upon entry the constant SlfiFT is 
stored in the pointer to the standard input device 
•CIUPP}. Return is through the RF3 pseudo entry 
point. 



v.. 



Efl.T.? SETREC *SR @ 



This routine processes the *SR statement which 
indicates that recovery is desired- Upon entry 
the Recovery Indicator -CRI> flag is set. Return 
is through the RF3 pseudo entry point. 



Efl.T.fl RESUME * (££) 



This routine processes the * (£7J) statement which 
causes the Job Processor to continue at the 
beginning of scratch. Upon entry the absolute 
location for load and gon $EM is set to one- 
This location is unprotected. Return is through 
the RF3 pseudo entry point. 



Efl-T.T SGNOFF *Z <g) 



This routine processes the *Z statement which 
marks the end of Job Processing. Upon entry the 
Job Processor not in core flag -CJOBIND} and 
the protect processor flag -CLOADINJ are cleared. 
The LOADIN flag when set allows the loader to 
read and write below the scratch area on mass 
storage. The LGO -C$E4> location is then set to 
one. The address of the Request Exit -C^B C J> is 
then stored in the RCTV table in NH0NI for the 
Status t Exitn Loader n Core and GETfile requests. 
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Set the protect fault return to the Dispatcher 
switch -CIP1} and reset the *V switch- The recovery 
indicator -CRIJ flag is then checked- If seti the 
flag is cleaned and a jump is made to JOBENT to 
schedule RCOVERt otherwise Exit is made to RELFLE 
in HINT. 
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2=1-0 PROTEC . Protect Processor 
2^-1 FUNCTION 

1- Analyze monitor call for invalid parameters. 

E. Set up entry to a Preset Entry Point. 

3. Initialize entry to users completion address after 
completion of unprotected I/O. 

M- Detect illegal or legal violations 

5. Read in the JBKILL module when requested. 

2^-2 ENTRY POINT NAHES 

PRT Initial entry when PROTEC is scheduled in by JPLOAD 
IPR0C1 Entry point when a Protect Violation occurs. 

2^-3 EXTERNALS AND DESCRIPTION 

RCTV The table -C i n Monitor Entry for Requests} which is 
indexed by request code and contains the location 
of each request processor. 

L0G1 Logical unit table -[indexed by logical unit} 

which contains the alternate logical unit number 
and various indicators. 

L0G1A Logical unit table {indexed by logical unit} 

which contains the core location of the physical 
device table entry corresponding to each logical 
un i t . 

TBLE A table for Hex to ASCII conversion located in 
the Internal Interrupt Processor. 

LOADIN A location in TRVEC which when non-zeror indicates 
that relocatable loading is in progress. 
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UNPIO A location in TRVEC which contains a count of 

the number of unprotected I/O requests in progress 

UNPTIM A location in TRVEC which contains the number of 
unprotected TIMER requests waiting. 

JBCNCL Routine in TRVEC to schedule PROTEC when JBKILL 
is requested* 

SUAPCK Routine in DRCORE which decrements UNPIO on 
completion of an I/O request. 

UDADR A flag that when set indicates that the words 
addressable disk drives to be used. 

JKIN JBKILL in core flag -CTRVEO 

JBCNFG Job Cancel wait flag -CTRVEO 

TRNVEC Absolute address of the TRNTBL buffer in JOBENT 
•CTRVEO 

PRORET Holds return address to JPLOAD for PROTEC -CTRVEO 

TRANV Holds absolure address of TRANTA table in JOBPRO. 
■CTRVEO 

FILE3 Holds FWA of PROTEC when in core -CTRVEO 

IP1 Entry points address of IPR0C1 -CNIPROO 

LOCF Pointer to error processor routine. -CTRVEO 

LPTRS Holds address of PTRS in PROTEC. -CTRVEO 

PROTEC Mass Resident Protect Processor. 

JKILL Entry point to JBKILL module. 
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ET.4 ENTRY INTERFACES 

When a protect violation occurs the Internal Interrupt 
Processor transfers control to PROTEC- The Protect 
Processor saves the machine state -CdrArlr PL> and 
arbitrarily sets up priority level one prion to enabling 
interrupts - 

2^.5 EXTERNAL INTERFACES 

Exit after a violation is as follows: 

Monitor Call - users completion address 

Preset - the preset entry point 

Legal Violation - user^s program at P+ 1 

( j Illegal Violation - Cancel the job and back to the Job 

Processor 

ST.ti GENERAL PROGRAM INFORMATION 

S^.b-l This table is indexed by request code. It contains the 
length of the parameter I ist in the upper H bits and the 
distance to the processors in bits Q-1D. 
Bit 11=1 for requests which are stacked but not threaded 

REtfTB ADC F-REG3TB 

ADC Y-RE(3TB+$bD0D READ 1 

ADC Y-RE(3TB+$bDDD WRITE 2 

ADC BB-REflTB+£2D0D STATUS 3 

ADC Y-RE<3TB+*bQQ0 FREAD ^ 

ADC BB-RE(3TB+*10QD EXIT S 

ADC Y-REdTB+SbODD FURITE t> 

ADC BB-RE(3TB+$1DDD LOADER 7 

IFA TIMERS, Eflrl 

ADC X-REdTB+$3flD0 TIMER fl 
EIF 
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ET.b.E STACK 



Length is 1EN where N is the number of requests permitted 
on the stack at one time. Each slot requires IE words. 

Bit 15 of word designates that the slot is in use if 
set to 1. 

Examples of the Protect Processor stack follows: 
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ST-b.a.l Stack for READ-, WRITE-, FREAD-, FWRITE 
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ID 



11 



User-'s Comp. Addr 



RC 



RP = D 



Abs. Addr. of CCP 



Thread 



LU* 



* Words 



Starting Address 



MSB 



LSB 



Loc. of Panam List 
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2T.b.E.2 Stack for TIMER Requests 



10 



11 



User^s Comp. Addr. 



RC 



UNITS 



Slot Loc of TIMER Exp 
Routine 



Value of Clock 



Loc- of Our Slot 



LDA" m-1 



STG?" "-3 



ST<3 m-3 



TRA (3 



NUM 



$moo 



CP = 1 



Addr. of TIMER Exp. Routine 



Loc. of Param List 
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ET.b.E.a Stack for SCHDLE Request 



o 



ID 
11 



User^s Comp. Addr 



RC 



RP=D 



CP=1 



C=Addr. of SCHCNP 



User-'s Q 



Loc of Param List 
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ST.b.E.M Stack for GTFILE 
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Thread 
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W1=FW of File 
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CP = E 
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MSB 



LSB 



Loc • of Param List 



AA 3777 



PRINTED IN USA. 



CONTROL DATA CORPORATION 

Arden Hills Development 



DOCUMENT CLASS. 
PRODUCT NAME_ 



TMS 



i?nn QPFRATTMr; svsTm 



PRODUCT MODEL NO. E0Db*3.0 



DIVISION 



MAR 5 '1971 



PAGE NO.. 



ET.T 



MACHINE SERIES. 



170D 



2T-7 



GENERAL DESIGN PECULIARITIES 

CODE Largest request code +1 

N maximum number of stacked requests 



ST. 7.1 



Adding Requests 

To add requests it is necessary to add entries for each 
request code in REtfTB. Be sure that CODE is always 
one greater* than the largest request code used. The user 
may process his request with any of the available 
subroutines -CX nYnZiG-i J> or specify his own via PROCTB. 



2^-7-2 



o 



Stack ing 

The maximum number of requests allowed to be stacked at 
one time is set to five. To change this it is necessary 
to change the value of N. This will automatically set 
the size of the STACK table and all indices. 



2 C I . 7. 3 Over I ays 

2=1.7.3.1 Protect Stack 

Upon initial execution of PROTEC the area *PRTA* is used 
to place parameters into other areas which require them- 
After it is used to fix parametersr the area is cleared 
and then becomes the Protect Stack -[TABLE}. This table 
is used to stack unprotected parameter lists for 
execut i on . 

2T-7.3-2 AREA. - Equated to the area of routine C- 

This area is where the overlay of the error routine and 
JBKILL begins. Routines which are in this area initially 
are not required after an error has occured or JBKILL is 
schedu led. 
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5T-a PROGRAM LOGIC 



This program operates at level one and is not re-entrant 
as no protect violations occur above level 1. It processes 
all protect violations including illegal violationsr and 
unprotected protected communication in unprotected monitor 
calls. It does validity checking for monitor calls which 
need it. 

On initial entry to PROTEC a check is made to see if 
JBKILL is requested {.Q Neg.>. If requested a jump is 
made to the routine GET which reads in the JBKILL module 
and jumps to it to be executed. If notr a jump is made 
the routine PRTA which does some initial housekeep i ng r 
sets up the address of IPR0C1 in IP1 in NIPROC to handle 
interrupts and returns to the JPLOAD module -CPRORETl 
address. 

On entry to IPR0C1 after a Protect fault has occurredi 
the Protect Processor stores Q t Ar I» P and priorityr 
then sets up level one. The Protect Processor first 
attempts to determine if the violation resulted from a 
monitor call. This is done by examining the contents 
of the words which must contain ^5MFM^ if the violation 
is indeed a monitor call. All monitor requests cause 
operation of subroutine Ar which analyzes the request code 
and exits to the correct processor. 

Protect violations which are not monitor calls are analyzed 
in subroutine C The violation is examined to see: 
ill if an attempt was made to communicate with certain 
programs whose entry point names are in the list of preset 
entry pointsr -C21 if it was a jump to the Dispatcher or 
{3} a violation from a legal instruction. 



Appropriate action is taken as follows: 

Preset - exit to the program whose entry is a preset 

Dispatcher - exit via a jump to the Exit request processor 
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Legal Violation - return to the users program at P+l 

-[subroutine K> 

Illegal Violation - print the appropriate error message 

and schedule JBCNCL. {subroutine E> 

ET-fi-l COMMUNICATION 

If the caller was at level zeror the Protect Processor 
must go through the dispatcher in order to operate any 
level one programs -[completion routines} that were 
scheduled as a result of interrupts occurring while the 
Protect Processor was in operation. This must be done 
because if we immediately go to level zeror level one 
programs could be left waiting. This is not tolerable. 

In order to go through the dispatcher and also preserve 
the mark in the called routine* the Protect Processor 
then can safely cause entry to the called program with 
interrupts off- 

If the caller is at I eve oner the entry is achieved 
without need for rescheduling. 

2^.^ SUBROUTINE LOGIC 

ST-T-l Subroutine A 

This subroutine does preliminary legality checking of 
requests and passes control on to the appropriate processor 
The legality checks are as follows: 

1. The Monitor Entry for Requests must contain a mark from 
the RTJ- -[SF^. 

2- INDIR requests must point to an unprotected parameter 
list. 

3. Sign bit of word containing request code must always 
be zero. 

M. Request code must be less than CODE. 
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5. A processor must be resident. This is checked by 
examining the RCTV table to find out if the request 
processor, is patched in. Unpatched processors leave 
7FFF in the RCTV table in NMONI. 
lb 

Failure of any of the above checks will result in an 

illegal request diagnostic except for number one which 

will be flagged as a protect violation. 

When the checks are completedr the RE(3TB table is used to 
get to the next level processor. The processors available 
and their functions are- 

BB Passes the request to the Monitor Entry for Requests 
at the level of the caller. No further processing is 
done. Requests using this routine are' CORE 

STATUS 

EXIT 

LOADER 

F Gives an illegal request diagnostic and terminates 

the job. This is used internally and also for requests 

which are illegal from unprotected core. 

SPACE 

RELEAS 

{request code zero) 

X A special processor for TIMER and SCHDLE requests. 

Y A processor for READ-, WRITE-. FREAD-. and FURITE requests 

Z A processor for GTFILE requests. 

U A processor for TAPE motion requests. 



ET-T.E Subroutine BB 



This subroutine is entered for requests which are not 
legality checked such as CORE-, STATUS-, EXIT-, LOADER and 
also to set up exit to a present entry point. 
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The Protect Processor schedules itself down to level D 
in order to allow processing of any level one programs 
which may have occurred. Exit is then made to the return 
-CP+ request length} or to the preset. 



21.^.3 Subroutine X 



Operation begins with use of subroutine G and then is 
separate for TINER and SCHDLE requests. 

TIMER requests are stacked in the Protect Processor 
stack and there await expiration of the delay. At 
expiration, the TIMER request count -CUNPTIM} must be 
decrementedr the stack slot marked empty and the user^s 
program must be entered at the desired level. This is 
accomplished by saving the user^s completion address and 
substituting an address in the table to which a bookkeeping 
routine is moved. 

Uhen the delay time expires, the bookkeeping routine is 
entered. After completing its operation, the bookkeeping 
routine exits to the user completion address via the 
SCHCMP routine. 

SCHDLE requests have their completion address and user 
parameter saved and the location of subroutine SCHCMP 
substituted for the completion address. In this way when 
the SCHDLE request is completed, the SCHCMP routine can 
complete release of the table entry and enter the user^s 
program. 



aT-T.L* Subroutine Y 



This routine calls subroutines G» J and L in order to process 
READ-, WRITEi FREAD and FWRITE requests. It exits to sub-J 
routine H after updating the number of unprotected re- 
quests, and storing the location of the stacked requests 
in the user 9 s thread to set it non-zero. 
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ET-T.5 Subroutine Z 



This subroutine calls subroutines G and J to complete 
preliminary processing and then performs the following 
legality checks peculiar to GTFILE. 

1- File buffer must totally reside in unprotected core. 

E. hJE must be greater than or equal to Ul. 

3. Specified sector numbers must not be negative. 

The following operations are also performed: 

1. A bit is set to tell the GTFILE processor that the 
request is unprotected. 

E. The pointer to the file name is adjusted for the 
requests position in the Protect Processor Table. 

3. The stack entry is set full. 



ET.^-b Subroutine G 



This routine first looks for an empty slot in the stack. 
If no empty slot exists and the caller is at level zeror 
the request is repeated. If the caller is not at level 
zero the job is deleted because no empties can ever occur 
while we are at level one» since completion routines 
are executed at level one and* thereforer cannot be entered 
unt i 1 we ex it . 

The following legality checks are performed: 

1. Completion address cannot be a directory call. 

E. Completion address cannot be protected. 

3. Thread for non-SCHDLE and non-TINER requests may be 
zero. If a thread is found non-zeror the request 
is repeated for level zero callers and causes job 
termination for level one callers. The reasoning is 
the same as for the stack full condition. 
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The following operations are performed: 

1- Completion address is absolutized and stored 
in the first word of an open slot. 

2. Ten words of the request are moved to the slot 
starting at word two of the slot which contains the 
request code word. 

3. The common completion address is stored in the 3rd 
slot cell so completion bookkeeping can be done. 

M. Request priority is set to zero in stack. 

5- Completion priority is set to one in stack. 

b. X is set to zero in the stack. 

7. The location of the user request is saved in the 
last cell of the slot. 

2T.T.7 Subroutine J 

This subroutine performs the f o I lowing operations: 

1. Absolutize logical unit and store in stack. 

2- Absolutize starting address and store in stack. 

The following legality checks are performed: 

!• Logical unit must be less than or equal to the largest 
and not zero or one. 

2. Starting address must be unprotected for read type 
requests. 

2T.T.A Subroutine L 

The following operations are performed: 

1- Length of block in transfer is absolutized and stored 
in stack. 
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2. If starting address is indirect r move sector number 
to stack for requests involving mass storage. 

3. For requests to the library unitr add scratch sector 
start to sector number unless loading is in progress 
{lets Loader get at library!. 

l 4 . Set stack entry full. 

The following legality checks are performed: 

1. The buffer must be in unprotected core for read 
type requests. 

2. Sector number must be non-zero and positive. 

3. A cal 1 may not read a write-only device or write a 
read-only device. 



2T- T-^ Subroutine H 



This subroutine makes one indirect call pointing at the 
second word of the slotr thus executing the legal request 
stacked there. It then calculates the proper return to the 
caller and confirms that the return is unprotected. 
Violation of a return to be unprotected will cause a 
protect violation diagnostic. Subroutine continues on to 
subroutine K. 



ET.T.ID Subroutine K 



This subroutine makes a phony entry in the interrupt stack 
and then exits to the dispatcher to effect return to a 
caller after a legal request has been initiated. 



2^.^.11 Subroutine CCP 



This subroutine is entered upon completion of each I/O 
call from unprotected core- It does final bookkeeping 
and enters the users completion address. 
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2=1. e \. 12 Subroutine (i) 

This subroutine analyzes Tape Motion Control requests. 
1- Checks legality of the logical unit. 

2. Confirms that parameters are within range. 

3. Checks to see if device is protected. 
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3D-D JBKILL JOB KILL MODULE 

30.1 FUNCTION 

This module is used by the Job Processor to terminate 
processing and prepare for the running of the next job- 

3D. 5 ENTRY POINT NAMES 

JKILL 

30.3 EXTERNALS AND DESCRIPTION 

INTSTK Location of Interrupt Stack -CSYSBUF> 

UNPTIM Contains number of unprotected timer requests 
waiting. -CTRVEO 

VRESET *V Reset Flag -CTRVEO 

FILE3 Contains address of PROTEC when JBKILL is in core 
•CTRVEO 

IUP Pointer to comment device -CTRVEO 

LOADIN Loader in core flag -CTRVEO 

UNPIO Number of unprotected I/O requests Waiting -CTRVEO 

RECOV Abs. Addr. of RECOVR routine in JOBENT -CTRVEO 

JBCNFG JOB Cancel Flag -CTRVEO 

TRNVEC Contains address of TRNTBL buffer in JOBENT -CTRVEO 

JBPROE Contains Address of JBPRO routine in JOBENT -CTRVEO 

JKIN JBKILL in core flag -CTRVEO 

3D.M ENTRY INTERFACES 

This routine is entered from the Protect Processor when 
JBKILL is requested. 

30-5 EXTERNAL INTERFACES 

Normal exit from JBKILL is to JOBENT where J0BPR0 is 
scheduled with an index to the RF3 routine within J0BPR0. 
If the Recovery Indicator -CRI1 is seti exit is to the 
RECOVR routine in JOBENT where the RCOVER module is scheduled. 
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30- h GENERAL PROGRAM INFORMATION 

JBKILL is brought into cone only when the JBCNFG {Job 

Cancel Flag} is set- TRVEC checks this flag and if seti 

sets Q. negative and schedules PROTEC PROTEC determines 

the JBKILL is requested and reads its error processing routine 

and JBKILL into an overlay area within PROTEC- A jump 

is then made to the area to begin execution- 

3D- 7 GENERAL DESIGN PECULIARITIES 

JBKILL must be installed on mass storage immediately 
after the Protect Processor in order for it to be read 
in properly by PROTEC. 

3D.fi PROGRAM LOGIC 

Uhenever an unrecoverable error is detected in an unprotected 
programn this module is scheduled. The following errors 
cause this to happen: 

1. Illegal I/O format 

5. Protect violation 

3. Illegal parameter in a GTFILE-, LOADERn CORE or STATUS 

request. 
M. No transfer address when requested to execute a program. 

The address JBCNcL in TRVEC is scheduled at level 2 by 

the PROTEC Processor or the JPLOAD module. JBCNCL in turn 

schedules PROTEC which reads in JBKILL. The following events 
occur when JBKILL is executed. 

1. The Job Processor Loader in Core Flag -CL0ADIN1 is set 
to zeroi the *V flag -CVRESETJ is cleared if set and 
IUP is set to the comment medium. 

2. The first word of each slot in the unprotected request 
slot in the Protect Processor is set to zero- 

3- All interrupted stack entries referring to unprotected 
return locationsn level zero and one priority are set 
to the address of the Dispatcher except for request 
EXIT locations. 

M. Schedule self down to level zero. 

5- If the recovery switch -CRI1 is seti a jump to JOBENT 
to schedule the System Recovery module -CRCOVERJ is 
made after clearing the RI switch- If notn a jump 
is made to the JBPRO routine in JOBENT to schedule 
the J0BPR0 module with an index set to the RF3 routine 
within J0BPR0. 

30- T SUBROUTINE LOGIC 
NONE 
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31- D JPLOAD 



31-1 FUNCTION 

This module contains the Processing for all Loading Type 
Job Processor requests and does the scheduling of the Protect 
Processor if not in cone- JOBENT schedules JPLOAD at 
priority level zero which allows these requests to be inter- 
rupted by other Job Processing Type statements. The state- 
ments processed in this module are *Ln *Pn *Xn and * entry 
point. 

31-S ENTRY POINT NAMES 

JBL - JPLOAD entry point 

JP1 - Return from scheduling Protect Processor- 

31-3 EXTERNALS AND DESCRIPTION 



TRNVEC -CTRVEO 

PRORET -CTRVEO 

JBPROE -CTRVEO 

RELS1A -CTRVEO 

PROTEC 

L0G1A -CSYSBUF} 

NIB -CMINT} 



LIBET -CTRVEO 



JBCNCL -CTRVEO 



JBCNFG -CTRVEO 



TRANV -CTRVEO 



IUP -CTRVEO 



LOADSD 



LOADIN -CTRVEO 



Abs. Addr. of TRNTBL buffer in JOBENT. 

Return Addr. for PROTEC 

Abs. Addr. of JBPRO routine in JOBENT. 

Abs. Addr- of RELF routine in JOBENT- 

Mass Resident Protect Rocessor- 

Entry point to the L0G1A table in SYSBUF- 

Manual Interrupt Busy Switch. Zero = 
not busy. Non-zero = busy. Must be 
set to zero before another manual interrupt 
can be processed. 

Holds the address of the routine in JOBENT 
that schedules LIBEDT. 

Entry point to the routine that schedules 
PROTEC- 

Job Cancel Flag which tells the Protect 
Processor to stop honoring requests from 
unprotected core. 

Contains the absolute address of the Job 
Processor transfer table. -CTRANTAJ 

Pointer to the comment device- Used by 
the Job Processor transfer {initially set 
to SlflFD}. 

Contains an index to the FLJA of the mass 
memory System Directory entries- 

Flag for the protect processor to allow 
the loader to read and write below the 
scratch area on mass storage- 
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JPRET -CTRVEO 

JPRET1 -CTRVEO 

JPRETN -CTRVEO 

FILE2 -CTRVEO 
FILE3 -CTRVEO 
L0G1 -CSYSBUF* 
BRKPT 

UNPIO -CTRVEO 
SUJAPCK -CDRC0RE1 

31. M ENTRY INTERFACES 



o 



Entry point to the table of preset entry 
points that allows entry to a protected 
routine from an unprotected routine. 

Used to save the return address in T7 
or in JPLOAD when either module calls 
the loader- 

Return is made from the loader through 
JPRETN which has been entered in the 
preset tables by T7 or JPLOAD. 

Contains the absolute location of JPLOAD 
as associated with this module- 

Contains the Absolute location of the 
Protect Processor when in core- 

FUA of L0G1 table- Contains the largest 
legal Logical Unit Number. 

Contains an index to the FUA of the mass 
memory System Directory entry for the 
Break Point Program. 

Contains the number of I/O calls pending 

Entry point to the SUAPCK routine in 
DRCORE. Used to decrement UNPIO when 
unprotected I/O is completed. 



JBL - Entry to JPLOAD module is scheduled by JOBENT module. 
JP1 - Entry to JP1 is made after scheduling in the Protect 
Processor. 

31-5 EXTERNAL INTERFACES 

The normal Exit from JPLOAD is to JOBENT where J0BPR0 is 
scheduled and executed according to the parameters passed 
from JPLOAD. If an error on loading was maden exit is to 
JOBENT to release FILE2 and jump to the Dispatcher awaiting 
JOB KILL execution. 

31. b GENERAL PROGRAM INFORMATION 

31- (a- 1 Table of Job Processor Loader Type Requests 

The following table is used to analyze the loader 
type statements- - 
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TAB1 



CONSTANT 


FUNCTION 


5S0FF 


P €b statement 


$HCFF 


L €ft statement 


*SflFF 


X cb statement 


*MCEC 


Lt statement 


SSfiEC 


Xt statement 



3l-b-E Table of Job Processor Input Statement Subroutines 

The following table is used in indexing to the 
loader subroutines as determined by the input 
statement. 



TABLOC 



Relative 
Address 


Statement 


PREUOB 


*P <cb statement 


RBLOAD 


*L Q statement 


EXECUT 


*L cp statement 


RBLOAD 


*Lt statement 


EXECUT 


*Xn statement 


TRLOAD 


Gentry point state 



31- b. 3 Table of Absolute Locations in JOBPRO 

The following table is transferred from JOBENT and 
is used to access its locations- 

TRANTA - Abs. location of JOBTUO 

Relative loc of J0$>3 to JOBTUO 

INPBUF - Absolute address of input buffer 
Relative loc of JOBP to JOBTUO 
Relative loc of JOM to JOBTUO 
Relative loc of J03 to JOBTUO 
Lock out Flag - LO 

BPS - Break-point load flag - BPS 

RI - Recovery Indicator - RI 

LOADEP - Loc of loader entry point is present 

&REG -- Request no. 

STCK - Abs- loc of stack 

NN - N Value - Number of stacked requests 

31-7 GENERAL DESIGN PECULIARITIES 

31-7.1 JPLOAD has its own decimal ASCII to HEX -CASCHEX* 
conversion routine. This routine is entered from 
the RBLOAD subroutine. Before entering ASCHEX 
the address +1 of the input buffer is multiplied 
by two- The product is used by ASCHEX to check 
for an input of two numbers- 

31- 7- E LOADSD contains an index to FUA of Mass Memory 
System Directory. 
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31- fl PROGRAM LOGIC 

Upon entrance to JPLOAD its FUA is saved in FILES in TRVEC 
A check is then made to see if the Protect Processor is in 
core. If notn PROTEC is scheduled into cone- Execution 
resumes at JP1 in either case. The locations from the 
transfer table -CTRNTBL* an JOBENT are then transferred 
to JPLOAD. 

The loader type input statements are then analyzed to 
determine which subroutine is to process the statement- 
A return jump is then made to the proper subroutine. 

The input statements and the subroutines that processes 

them are as follows: *P (cd to PREJOBn *L (gp) to RBLOADn 

*X @ to EXECUT-, *Ln n £^ to RBLOAD-, *X-,N © to EXECUT 
and * entry point @> to TRLOAD. 

The LOADER subroutine jumps to and is returned from the 
loader. 

The ASCHEX routine is entered from RBLOAD to convert from 
decimal ASCII to HEXt the logical unit specified in the 
*Ln n <££> statement. 

The exits from this program are to JOBENT where the proper 
module is scheduled according to the parameter passed from 
JPLOAD. 

31- T SUBROUTINE LOGIC 

31-^.1 TRLOAD *entry point statement 

Upon entry to TRLOAD a check is made to determine 
if the job processor statement is *LIBEDT. If 
true a jump is made to LIB in JOBENT to schedule 
LIBEDTn otherwisen pick up the address of the input 
buffer and return jump to LOADLR to load the program. 
If an error on loading was made schedule JBCNCL 
at level 2 and jump to JOBENT to release FILEB. 
If no errori save the transfer location! clear 
the address of the breakpoint program -C£F3>n 
pick up and save the adaress of the transfer vector 
table and jump to EXfi in the EXECUT subroutine to 
execute the job- 

31-^-2 RBLOAD *L-,N cr load relocatable binary program 

This subroutine instructs the loader to load 
relocatable binary information- Once initiated-, 
the loader continues loading until it reads an 
EOL block or a system control statement. 



AA 3777 



PRINTED IN USA. 



U WRPL DATA CORPORATION MAD - 1ri71 
Arden Hills Development DIVISION MAR 5 1971 

DOCUMENT CLASS_IMS PAGE mh 31-M 

PRODUCT mamp 17DD MSOS 3-0 

PRODUCT MODEL Kin E00b-3-Q MACHINE SERIES 17DD 



N specifies the logical unit number for the loading 
device! but if not specified! *Lt the standard input 
device is used- The given logical unit number is 
checked for being negative or larger than the largest 
Logical Unit Number- If Logical Unit Number is in 
error! the DMt statement message index is set up and 
a jump is made to JOBENT- If logical unit specified 
is zeron the standard input device is used- The 
loader keeps track of the upper and lower limits of 
available corei and adjusts limits according to the 
amount of core allocated during input- 

The general routine "LOADLR" is called to communicate 
between loader and statement processor- A and 0. 
registers are set up for the specific type load oper- 
ation and the "LOADLR" routine is return jumped to- 
It protects the return location and stores the address 
of that address in the communication region -C^EEJ 
and the first preset entry -CJPRET3-- After returning 
from the loader! that location is protected again and 
interrupts are immediately enabled- The return flags 
are checked for any recoverable errors Job Processor ^ 
statement readi or a successful operation- The index Q 
to RF3 in JOBPRO is set up and a jump to JOBENT is 
made- 

31-^-3 EXECUT *XtN execute the loaded program 

This subroutine instructs the job processor to begin 
program execution! it must be used after an *L state- 
ment- If N is blanki the loader is directed to pro- 
duct a memory map after loading- If N is not blank! 
no memory map will be produced- 

Upon entrancen a subroutine load is requested which 
detects any unpatched externals and searches the 
program library directory for a matching name- Aftar 
patching all externals possible! the loader returns 
to "EXECUT"- A check is made for irrecoverable errors! 
if any are found! control is transferred to JOBPRO 
to read the next control statement- 

A check is made to see if a map is desired- If soi 
it is requested- The I register is checked to see 
if the program has been loaded on mass storage^ if soi 
it is brought into core- 
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The breakpoint switch is then tested. If this 
switch is zeroi a jump is made to JOBENT to schedule 
JPT13 with the transfer location SAVA in the & 
register- If the switch is setn the breakpoint 
routine is loaded from mass storage and stored 
in unprotected core. A check is made to see if 
it will fit into unused unprotected corei if noti 
a loader type error message is given: 

ES 

E1D 

BRKPT 

and control is passed to the Job Processor to 
read a new statement. 

After loading the breakpoint routinen its entry 
location is stored in £F3. The Q. register will 
contain the transfer location of user's programn 
and a jump is made to JOBENT to schedule JPT13 
and begin execution. 

31-T.M PREJOB *P 

This subroutine handles preload intiialization. 
That is i temporary upper and lower limits of 
available core ars set to unprotected limits- 
The relocating loader is read into the highest 
unprotected core available. The entry location 
to the loader is stored in "LOADEP" which is used 
by other routines to check if the loader is in 
core- 

The *P statement must be used prior to any loading 
operation that is to be independent of previous 
loading operation. 

31-^.5 ASCHEX Decimal ASCII to HEX conversions routine 

This routine is entered from the RBLOAD subroutine. 
It converts the decimal ASCII Logical Unit Number 
specified in the *LnN statement! to hexidecimal- 
This routine checks for a legal ASCII numbers 
between $30 and $3^ and also checks if larger than 
$3T- This routine does not do the checking 
for a valid Logical Unit Number- This is done 
when control is returned to RBLOAD. If an error 
is detectedn (3 is set to 5FFFF and control is 
returned to RBLOAD. 



AA 3777 PRINTED IN USA. 



J6L 













± 



Pfarec 



c 



± 



OXSP 



) 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT -r~ M% <r 



JPX 



S£>" uP 

rWMSFet if 



SPU W 



Pj^k uf ft 

HL>lT6Lfy*fF£A 

1T1 n i ii I » —^i— 










PTCK up TH$ 



± 



573? £^ ZV. 



&UT 



r 

\Tt*4 itmT t*fl 



4 

Ate* lift 2.HO 










3=» 



en 

CO 



TYPE /7 QO 



DOCUMENT r . 1 - 

TITLE J PL&fiQ 



PACE loF // 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



Ul 
fcH 



AA13BS (FORMERLY CA127-1) 



PRINTED IN USA 



O ' 



f^\ 



n' 



LBZ.2, 



N$ 











VC5 



* e *r*y flew 






r ftTT £x£CHT 

* X 

AJL 



fiXX fi6U>AQ 



* L 



*JL 



fKTT peej&s 



* p 



/91 



-X 



KQKN Y 



5£r 6? /2£C 



tair** \fr 






(JBPR&B) J '-— 






3^ 



tn 



CO 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE fD 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



DOCUMENT T ^ - 
CLASS ■fc/fl J 



Sf&noo 



°° c tVt m £? t 3/>/L&»fl 



PAGE 2 OF // 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV APPROVED 



DATE 



LU 



AA1365 (FORMERLY CA127-1) 



PRINTED IN USA 



TRL&ftO 



Sia6£&utTH& 



1 

Ct*£CK FS/? . 
K LX6B.OT 



ii 




P-^K UP MM 
LXBE.OT 



't 



UlsB) Jia6^A/r J 



TfaO 



Flo ft at ro/^r 
% ~? fr tea. 



'firs uifipuz 



: a 



AA. 




■«> 



m*. t 



^o 






c 



we<s. 





TAhN2F£A 



DX 5 P 



) 



USC. .«F 



FVfi BLF 




3> 

77 



C* 



CO 
—4 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT t- /H <- 

CLASS -C/M.5 



MACH. .,.. 
TYPE /7 &0 



DOCUMENT 
TITLE 



TfUSAD 



PACE 3 OF // 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE. 



UJ 



AA1363 (FORMERLY CA127-1I 



PRINTH) IN USA 

f , ) 



O' 



R6L&ftO 






a uo cum. 



mews 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE f~] 

FLOWCHART Q] 

DECISION TABLE □ 

OTHER , i 





R&tXB \ f 



L£&4L UtotcAC 
UNIT A/4?. #«?AA 




£7?R V 






stive THe 



RBLtA 



MS V LH* 
Btl$ It-is- 



7* Trie IM* 3 

ewsTi\6 



'15 

^Mf>jeaiC6T> 
J?€#0 AST i£r^ 

yes 



N& 




<5 

Reus' 




RZi-2. 



Use stP- 



gfe^s V 



r gTJ LAAOLfK 



Yfe* 






R&L&/9D 



DOCUMENT 

CLASS J/H5 



MACH. 
TYPE /70fl 



DOCUMENT Q ,«/\/\ 

TITLE jPL&flfl 



PACE V OF // 



ISSUE 
DATE 



DRAWN BY 



PROJEC T NO 



PROJECT MCR 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV 



APPROVED 




DATE 



*A13B3 TORMERi.' CA127- 



PRINTHJINUSA 



Z8ls- 




yss 



Rtt ?&K£Lt} 



#« 



JP3 



S£7 HP tNp€P* 






CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER | | 






jsp V 






EfWXoV 







DOCUMENT -.*,«. 

CLASS X/MS 



DOCUMENT + ^ 

title TftcaAO 



TBI »3 



w 



type noo 



PAGE^ToF // 



ISSUE 
DATE 



DRAWN BY 



J6KZLL 



XNHTgZr 



ZtjrcAftupT? 










i£$ 




1 




V 


\ 




QP l$<.'tMT 
Mautfs THE 
flOPt. &P 

P£UG Z 


(\feL5±#)\ 











REMAN 



1 



FLAG* 






j & KX LL 



"5* 
TO 



en 

CD 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



UJ 



AA13B9 (FORMERLY CA127-1) 



PRINTED IN USA 



IH 
□ 



£\ECC4T 










SKI 



<a- 



f kTT L6*0Lfj y 



y9i 




£X2* 







Ves 



^fiufar rag. 



/n 



ftf 






g.xg i 



5fr uu/'K&rtsr^ 



2 



tere tAADMri 



£X± 



JUL 






I 




6X15" 



USlC, hOJU «F, 



STQte SYA0.TTN6 
£H L LBiC> ^ F3 



& 




CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



DOCUMENT T- » a «- 

class JlrAS 



MACH. ,-,„,* 
TYPE / 70O 



DOCUMENT 



TITLE (TPLSiHD 



PAGE ^ OF // 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MSR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



-?gr 



DATE 



AA138S (FORMERLY CA127-I) 



PRINTS) IN USA 




WAdO 



1 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE f~| 

FLOWCHART □ 

DECISION TABLE Q 

OTHER | 1 



DOCUMENT 
CLASS 



r/ns 



SGT tiP ZNQ&X 
TO. $CrtteDHL£ 

rpris 



C(J6PRQ£)J 



X 



TuftP TO J-&P2& 



KEADMJft 










'IZeAO rim, 



9*cx : UP 



A 






#BA0Ai/T) 



,,—., . i , 



3> 
50 



en 

CO 

—J 



type uco 



DOCUMENT 
TITL 



e TfL&frP 



1/ 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



RE\ 



APPROVED 



DATE 



LU 



RJ 



AA13B9 (FORMERLY CA127-1) 



PRINTED IN USA 



( ) 



C) 



o , 



o 



pgCT&g 















t 



i 






Sn£, HfSM.esr 












± 



/firs R£AOA/\W 



AV 



'*r* Mum 



pecate 



ZetuM 



/Kfera& 



3^ 
so 



en 

CO 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER | | 



DOCUMENT 
CLASS 



-£/tt5 



Type 11 OO 



DOCUMENT 
TITLE 



xPtsi&O 



PACE ff OF II 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



DATS 



UJ 

b- 1 



fc- 1 
LU 



AA138B (FORMERLY CA127-1) 



PRINTED IN USA 



*»ftp<.£ 






1 



irj ll/> 



ce 



fei see 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



1 









L&&0L& 



LL& 



Autre* m 



rz 




L&fiOU. 



/9fe. Unc. S.F 



ser CL*hpz) 

R/tV 6GUSUJ set. 






i 



DOCUMENT 
CLASS 



Z/nS 



TYPE )-) Q Q 



DOCUMENT 
TITLE 



Tfr&AD 



// 



ISSUE 
DATE 



DRAWN BY 



GST LW(*C£.£. 



V 






CLEM 

PAorecr <&r\_ 
— ^-J 



WMLl V 






l(4.TH«?UT' CAk/S^Vp. 
APt&TCcT FAULT- t 






J 



3=- 
TO 



en 

CD 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV 



APPROVED 



DATE 



LU 



AA13BS (FORMERLY CA127-1) 



PRINTED IN USA 



o 



o 



o 



o 



frSC#£-* 



Asc& no He* 



DecTAmt- Hex 



**xr v 









1 



CbUTENrs GIF 







T/trs sHxrr- is Also 
CHBCK F*fL ft ZnJ 



400 z ra 

xrt me x 



■£> 



CUsAA 

me ft 



&MLF&P 4 Tt 



$F ft fiNO 



1 



ROD 1 T& 
XN THE X 



M± 




3^4 



*L£fil fr (tec. 







yes 




Aiut-jcrPLi 




TO 



en 



CO 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER | | 



DOCUMENT 
CLASS 



zv^s 



MACH. yl-fl 
TYPE l/QU 



DOCUMENT 



tYt-l-e- JfCXAQ 



NUMBER 



ISSUE 
DATE 



paoe/^of // 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



RSV 



APPROVED 



DATE. 



LJ 
b- 1 



b- 1 

in 



AA13B9 (FORMERLY CA127-1) 



PRINTH) IN USA 



T% ft &E&. 






#Sc//g* 



CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER | | 



cHecK 





A/a 



m 



yes 



Sf=r a fee 



AX 



frsctf&x 



Ftt$r marr 



too z h ± 

OZctr AND 
SAf£ XN 




3» 



en 
55 



DOCUMENT 

CLASS 



TsHS 



MACH. | -, ^ .. 
TYPE / /^^ 



DOCUMENT 

T.TLE T/>£&AD 



PAGE. J J OF // 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



LJ 



IT 



AA1385 (FORMERLY CA127-1) 



PRINTED IN USA 



~A 



() 



CONTROL. DATA CORPORATION MAR 5 1971 

Anden Hills Development DIVISION 



r— x DOCUMENT CLASS ?nnn ahh'b^t... poct,-*. PAGE NO. 3g ' 1 

U PRODUCT NAME 1VUU OPERATING SYSTEfT 



PRODUCT MODEL NO. 



EDDb " 3 ' D MAPM.MP.pp.pc; 1700 



o 



3E-0 JPCHGE - ASCHEX 

32-1 FUNCTION 

This module processes p^K and «rV statements allowing the 
operator the option of selecting devices for system 
units other than those currently used- 

3E-E ENTRY POINT NAMES 

JPCG 
CHANGE 

35-3 EXTERNALS AND DESCRIPTION 

NUNLU Number of logical units in system -CSYSBUF} 

ASCHEX Decimal ASCII to hex conversion routine 

IUP Contains location of input comment device 

-CTRVEO 

TRANV Contains location of TRANTA table in 
J0BPR0 -CTRVEO 

FILE2 Contains absolute address of JPCHGE when 
in core- 

L0G1A Table containing Phystb addresses for 
logical units -CSYSBUF} 

fllBnNIBX Flags in manual interrupt processor {MINT} 

JBPROE Holds absolute address of JBPRO routine 
in JOBENT -CTRVEO 

fllBUF Holds absolute address of MIPBUF buffer 
in JOBENT -CTRVEO 
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32-M 
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32. b 



ENTRY INTERFACES 

JPCG This entry point is scheduled by JOBENT 

CHANGE This routine does the processing of the input 
statement. 

EXTERNAL INTERFACES 

Normal exit is to JOBENT where JOBPRO is scheduled 
with an index to RF3. In case of an error r the error 
message is output within JPCHGE and exit is again to 
RF3. 

GENERAL PROGRAM INFORMATION 
Input Format 

"K -i Hi Ll-i PI cr 



I 
L 
P 

M Vr li m cr 



m 



logical unit number 
system input unit 
system print unit 
system punch unit 



logical unit number 

A or B 

A - formatted ASCII mode 
B - formatted binary mode 



32.7 



32-fi 



GENERAL DESIGN PECULIARITIES 

None 

PROGRAM LOGIC 

This routine may be entered via the job processor 
-C JOBPRO} or the manual interrupt processor -CMINT1 
If entry was via MINT the Q register will contain 
the location of the input buffer and exit will be 
made by clearing the MIBX flag and scheduling a 
release of this module with no return. If entry 
was via JOBPRO the absolute location of JPCG will 
put into FILE2» the location of input buffer will 



be 
be 
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found from the transfer vector table buffer of JOBENT 
and the NIB flag will be cleared* The exit will be 
made to RF3 in J0BPR0 iva JOBENT- Entry determination 
is made by checking the priority levels if zero entry 
thru J0BPR0 is assumed- 

The processing of the input statement is done thru the 
subroutine called "CHANGE" which in turn calls "ASCHEX" 
to translate the input statement- After the statement 
has been broken down to into characters and logical unit 
ordinalsn each character is checked for equality with 
one of the expected characters- The logical unit 
ordinals ar& checked for valid numbers and a check 
is made in the physical device tablen word fli to in- 
sure the device is available to unprotected programs 
and is available for reading or writing from unpro- 
tected programs- In addition! the *v statement checks 
if a mode was selected and sets bit IE in the specified 
communications region location if ASCII or no mode 
was selected- After completion of validation checking 
the ordinal is placed in the specified communication 
region location if no error occured- 

If an error occuredn a message is output and an exit 
is made bypassing any remaining parameters- Possible 
errors messages arQi 

J04 - Illegal or unintelligible parameters in the 
control statement- 

J07 - Device not available to unprotected programs- 

JOfl - Either a read device has been assigned to a 

write only ordinali or a write device has been 
assigned to a read only ordinal- 
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SUBROUTINE LOGIC 

ASCHEX - this subroutine translates the input 
statement. 

As passed by ^CHANGE*. It in turn passes one character 
at a time to °SUB° for interpretation. 

Parameters for ASCHEX are: 



Register 


Upon Entrance 


Upon Exit 


A 




+1 error 

D more words following 
-1 no words follow 


Q 


Loc to store 
ALPHA char 


Hex number 


I 


Loc of char 


Loc of next character 



u 



Parameters for SUB ar^: 



Character 
Found 


Return Registers 


A Q 


COMMA 


D D 1st char 


D -1 End char 


$FF 


-1 -1 


NO. 


D 


CHAR 


D D 


ERROR 


+ 1 -1 
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33-D RESTOR RESTORE LOGICAL UNIT 

33.1 Function 

This routine informs the 17DD Operating System that action 
has been taken to restore the device to an operable state 
and it is now ready for I/O. 

33. E Entry Point Names 

RSTR Restor Entry Point 
33-3 Externals and Description 

MIB Manual Interrupt Lookout flag {MINT} 

MIBX Manual Interrupt Lookout flag -CMINT} 

L0G1 Logical Unit table -[indexed by logical unit} which 
contains the alternate logical unit number and 
various indications- -CSYSBUF} 

JBPROE 

JBPROE Holds Abs- Addr- of JBPRO routine in JOBENT- -CTRVI^O 

MIBUF Holds Abs. Addr. of MIPBUF buffer in JOBENT. -CTRVEO 

FILEE Holds FUA of RESTOR when in core. -CTRVEO 

L0G1A Logical Unit Table -[indexed by logical unit} which 
contains the core location of the physical device 
table entry corresponding to each logical unit. 

33.4 Entry Interfaces 

This routine is scheduled into core by the JOBENT control 
module when it has been determined that a *Rilu state- 
ment has been entered. 

33-5 External Interfaces 

Normal exit is the JBPRO routine in JOBENT wh^re JOBPRO 
is scheduled with an index to the RF3 routine within 
JOBPRO. If an error occurs a JOH message is output and 
exit is also through JOBENT to RF3 in JOBPRO. 

33. b General Program Information ( 

If this program is entered at a priority level greater 
than zero the RESTOR routine releases itself before exiting 
back to the caller. 
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33-7 General Design Peculiarities 

None 

33-fl Program Logic 

Upon entry to RESTOR the current priority level 
checked and if greater than zero the input buff 
address is in the Q register- If zeroi pick up 
buffer address in JOBENT and return jump to the 
subroutine to convert the logical unit number s 
Upon returning a check is made for a Logical Un 
error-i and if so a JQ l 4 error message is output 
is returned to the caller- If no error the log 
down bit is reset in the respective entry in th 
table in SYSBUF and the message flag bit -[bit fi 
first word of the logical units phystb is clear 
message flag bit is reset for all devices that 
this phystb. The restore device bit -[bit llD-i ' 
FRN-i is then set in the L0G1 table entry for th 
unit-, and the message LU xx RESTORED is output, 
is then returned to the caller- 

33-T Subroutine Logic 

ASCHEX - This routine connects the decimal ASCII logical 
unit number entered to Hexadecimal. Error checks ar& 
made for more than two characters entered-! characters less 
than $30 and greater $3^. If an error occurs the 0. 
register is set to negative zero and control returns to 
the caller- If no error is detected-! the converted 
logical unit number is saved in the A register and control 
is returned to caller- 
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3M.D T13 GET-FILE REQUEST PROCESSOR 

3H-1 Function 

This request is used to access permanent files in the 
program library- It is loaded under an *YHn JPT13 
loadi for mass storage resident programs. This routine 
will be brought in just before going into program execu- 
tion and will be in core only during execution of a user's 
program' i.e.n while *X Job Processor statement is in 
effect- Upon termination of a job-i i.e.n JOBKILt normal 
EXIT-i or SIGN0FF-, *JPT13* module will be released. 

3H*2 Entry Point Names 

EREflST - Initial Entry Point 

T13 - Entry Point to Process GTFILE requests. 

3LI.3 Externals and Description 

SCHERR Error processor in SCHE&U 

SUAPCK Routine in DRCORE which decrements UNPIO on 
completion of an unprotected I/O request. 

LOCF Pointer to F routine in PROTEC -CTRVEO 

LPTRS Pointer to PTRs in PROTEC -CTRVEO 

FILE2 Holds FUA of T13 when in core -CTRVEO 

HIB Manual Interrupt lockout flag -CHINT> 

RCTV Request Code Transfer Vector table -CNMONIl 

3H.M Entry Interfaces 

The initial entry to T,13 is to the ERE<2ST routine. 
This routine calculates the absolute address of T13 and 
stores it in the RCTV table in NMONI and jumps to Breakpoint 
program if requested or to the program to be executed. 

The T13 entry point is entered when a GTFILE request 
is made. 

3^•5 External Interfaces 

Exit is made to REflXT after setting up the internal 
thread. After a GTFILE read request is initialized^ 
exit is to the Dispatcher. 
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3M • (3 General Program Information 
34.L.1 GET-FILE CALLING SEQUENCE 

Request Code 13 



O 



RTJ- 



D 
IS 



-C$Fi|} 



RC 



m 



rp 



cp 



Thread 



V 
IS 



13 



P 
15 



E 
11 1Q 



CE 



Ul 



UE 



Most significant bits of N 



Least significant bits of N 



where - 

RC Request code for get-file is 13 

c Completion address t address of core location to which 
control transfers when an I/O operation is completed. 
If omittedi no completion routine is scheduled, c 
in parentheses i represents an index to system library 
di rectory t indicating the program to be executed upon 
completion of an I/O operation- Use of this option 
{parentheses} by unprotected programs results in 
job termination. 

Completion routines are operated by threading the I/O 
requests on the schedule thread. 
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c Meaning of c 



■Cc> c in parentheses represents an index to the 
system directory h x has no meaning- 

D or c Completion address is Cn a jump to c will 
blank be made. 

^ D and c c is a positive increment that is added to 
? blank the address of the first word of the para- 

meter list to form the actual completion 
address • 

Address increment! a positive increment that is added to the 
address of the first word of the parameter list to form the 
address of the first word of a three-word block containing 
the ASCII name of the file- Locations before and after the 
request can be accessed because of wraparound in adding- If i 
is in parentheses t the parameter is the actual address of the 
first word of a three-word block containing the file name- 
Starting address of' the block into which the filei or portion 
of the filen is to be transferred- s and x are related as 
follows: 

x s [leaning of s 

= D or s s is the starting address, 
blank 

? D and s s is the positive increment that is added 
^ blank to the address of the first word of the 

parameter list to form the starting address. 
Uraparound allows the starting address to 
be ahead of or behind the parameter list* 

= D or -Csl s is a core location which contains the 
blank actual starting address - 

* D and -Cs> s is a positive increment that is added to 

* blank the address of the parameter list to form 

the address of a location containing another 
positive increment. This second increment 
is added to the address of the first word 
of the parameter list to form the actual 
starting address. 

Both increments may reference locations ahead 
or behind the parameter list because of 
wraparound in adding- Return from the re- 
quest processor is to the location follow- 
ing -Cs>- 
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wliwE First and last wordsi if only part of the file is 
desired- The parameters must be blank if the 
entire file is to be used- An attempt to read 
beyond the end of the file is honored if it does not 
destroy the system - 

x Relative/ indirect indicator. 

cp Priority of completion addressn the level at which 

the completion address is to be executed- Always 
one for unprotected requests - 

rp Priority of mass storage requests needed to complete 

a GTFILE request- Always Zero for unprotected 
requests - 

p Protect Processor sets bit IE if unprotected 

request • 

SYMBOL Meaning 

v Error code passed to completion address in bits 

C \ 13-15 of d and set in the request by the system 

^-^ at completion- The settings of v are indicated 

below. 

DDO No I/O error - n words transferred 

DD1 Unused 

DID No I/O error - less than n words transferred 

Oil Unused 

1DD Unused 

1D1 I/O error - n words transferred; error due to 

device failure 

11D I/O error - less than n words transferred! error due 

to device not ready. 

Ill I/O error - less than n words transferred; error 

due to device failure 

The last two words of a get file contain the sector number of the 
first word of the file- If this number is unknowni the two 

O words should contain zero. In this casei the ^GTFILE* searches 

for the file and stores the starting sector number in the two 
words . 
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Thread This contains a non zero value if stacked or 

currently being processed. The thread will be 
cleared before scheduling completion routine. 

3M.b.E INTERNAL FLAGS 

T1310C Absolute location of get-file 

GFBUSY Get-file busy switch t pointer to current 
parameter list location 

GFTHED Get-file thread pointer to location of next 
request parameter list. 

3L4.7 GENERAL DESIGN PECULIARITIES 

The T13SUP routine will be overlaid by the GTFILE 
buffers. 

3M.A PROGRAM LOGIC 

The initial entry to T13 is made at EREflST. A jump is 
then made to the T13SUP routine which saves the absolute 
address of T13 in FILEE in TRVEO This entry point 
address of T13 is then calculated and stored in the RCTV 
table in NNONI. The MIB flag is cleared and control 
is transferred to the breakpoint program if requested. 
If breakpoint is not requested a jump is made to the 
execution address brought in the 0. register. 

Upon entrance to get-filen the thread in the parameter 
list is set to SFFFF. The get-file busy switch is 
checked^ i.e.i if non-zeroi it contains the address of 
current get-file request processing. If busyn a check 
is made to see if requests are already threaded. If notn 
*GFTHED* is set to the request location. *GFTHED* de- 
fines the location of next request to be processed. If 
^GFTHED* contains an address pointing to a requestn the 
thread in this request is checked for SFFFFn if address 
specifiedn next request is checked and so on. If thread 
contains SFFFFt the thread is replaced with address of 
request to be processed. After setting up Thread n an 
exit is made to the request exit -CREC3XT} module. 

Execution of Get-file requests are broken down into three 
parts. 

1. Get file parameters are computed. The Program 

Directory is searched for given name of a permanent 
file on the library. If Ul and U2 are specified! 
*C0f1P* address is set as Completion address and one 
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sector is read into the Get-file buffer. If the 
complete file is specified -Cno Ul and UE given} 
*C0HP1 V address is set at the completion address and 
the complete file will be read in. After either 
Read request is initializedn control is returned 
to Dispatcher. 

E. Uponnentran.ee to *COHP* data from the get-file 

buffer will be transferred to request Buffer. If any 
more data needs to be transferred COM PI address 
is set as completion routine and a Read request is 
made to bring rest of file into request buffern after 
request is initialized! control is returned to 
Dispatcher. 

3. V C0MP1* calls request completion routinen checks for 
threaded requests! clears flags and returns to user's 
program if not threaded. If a request is pending 
it is set up to be processed and group one above is 
repeated. 

ERROR CHECKS 

The following errors will cause the message JOEn hhhh to be 
printed out and control passed to the Job Kill portion of Job 
Processor. 

1 No sector number and file name specified. 

E A sector number given but no file name or start and stop 
location specified. 

3 UE specified -Clast word} and is greater than number 
of words in file. 

M Unprotected request exiting to protected locations. 

5 No Library Directory. 

b Name not in library directory. 

7 If request already threaded -CSCHERR} 



AA 3777 PRINTED IN USA. 






*>■ 



r* fr dec. 



rqsuP V 






± 



5 A V£ 



1 



A0OA.BSS 



(Lcrv 



FLAG. 



*5*k<3," 



T$ 



a &&*> 




" (^> > ---- 






D 

» I <r > 



yes 






3= 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE f~] 

FLOWCHART □ 

DECISION TABLE □ 

OTHER [~1 



DOCUMENT 
CLASS 



ZV^73 



Tvp h e ;7£g 



DOCUMENT _ „ .- 
TITLE T-13 



- GGTFZLG teatl£s7 



PR&csssqK 



ISSUE 
□ ATE 



JLs>l3- 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV APPROVED 



DATE 



UJ 

XT 



AA1389 (FORMERLY CA127-1) 



PRINTS M USA. 



r 



o 



G 



F2 3 



) 







Tokens*. 
s 4 Z 6v 1° 



■$J 



&Fn 




Q 



Y£5 



rA» schepu 



) 




yes 



-£>» 



G/^_Z 



w* 






L9c. Ajerc u/cm 



snfcXoff Bern 
tJPCT LQjc. 



•^L 



J.«Crf.ttP8N 

AQ04es$ X/4. 




GPSZ 






ESLJ 






<sffgy 







£f#5" 



3C 










s^^_jr 



V^5 






3* 
5=0 



CD 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



document >— /M _ 

CLASS J- ^7J 



MACH. /-7_. 
TYPE / /0£> 



DOCUMENT . — 

TITLE TJL3 



- GerTF£L£ tfeameerr 



flfoggssa* 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



UJ 



AA138S (FORMERLY CA127-1) 



FRINRDMU3A 



GF 









dip A&a* &* 







far- (sfi&r 



£fl/ JJ}c f 5.. 

Lee.*? tea 
ra A gee*. 






-£• 



r/v use C 



hnPAqt , 






G/vft 



^_ 











crx3 




V^r 







cr^ 







i 



3> 
50 



CJ1 

to 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE (~| 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT _,>*,<■ 

class X/nS 



MACH. _^ 
TYPE llOO 



poc T Yya T rx5 - (sem^e /fevgucsr 



P facade* 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE. 



UJ 



AA1388 (FORM--LY CA127-U 

( ) 



PRINT© IM USA 



( 



"O 



V J 



RT3 SPO 









V£s 



^4 



iJSt- <$/r sec* 



5^* t 








GTX3 



■&> 



GT/» 



ir£tw\ i4MM&r.>!^£> 






fit, 



EAH.C 



GT±0 















-& 



<zr±% 



1 









til 







50 



CO 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE |~) 

FLOWCHART □ 

DECISION TABLE □ 

OTHER | | 



DOCUMENT 
CLASS 



XA\S 



TYPE II 66 



DOCUMENT 
TITLE 



Tj.3 ~ GGTF&JZ fcGuesT 



Pt& Gtt Q A 



7or <? 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



UJ 



b- 1 



AA1385 (FORMERLY CA127-U 



PRINTED M USA 



~-3 









(Jte 



1_ 



f.e&K 



1) 



QT4-3 

(cOiMP) fig. 






CftCCHLATG 

srMTTN<s 






& 






yes 



5crr a rs *it> 





5>BT & £*<L 
Trie, w&to 



GTJ.V 



test, re./* .. 









■£>» 




*ss 



n$ 



/was* laFK 







3* 
50 



to 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER | | 



DOCUMENT 
CLASS 



z /ps 



MACH. ,_ _ 

TYPE II OO 



DOCUMENT _. _- _ ___ «~^ __ 

title ri.T - G£FFZL£ AedLu&sr 



Pti&cess&A. 



i-Tor *7 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



APPROVED 



DATE 



UJ 






AA138S (FORMERLY CA127-II 



PRINTED M USA. 



A 



o 



o 



,o 




QZSK 






... fi gg \ 



c&zn/* 













Cst/rtPZ V 






TNQEZX flfiJO 




csmfl. 




YES 



GlV 






APQ Que t«* 




*VJ. 



for &?t.s4 



1 









3^ 

50 



en 

CO 
--4 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE |~| 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT r.j^r- 
CLASS J-/n~> 



TYPE / 7 06 



DOCUMENT ^^g _ &GT&U- fi.E6JUC.Zr 



P£6>C<£ZS6»t 



6 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



APPROVED 



DATE 



UJ 

JZ 



ru 



AA138S (FORMERLY CA127-1) 



PfUNTBD ti U&A. 



5' 



seen* A. P&0 



& 



W Zaj /lea 



Cc*»f±j 



5 rate: flCOA 



I 



-s* 



tenr Re a 
'pefatt* 

f&0 ~ L 



c 



DI5P 



) 



A 



C&/nPX 

Ltsr 







*Efe 






•^ 









teCflfH V 













i£3 



L -4 ~J 



f prsP 4- 




Kin 



3> 

50 



CO 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT _^ 

CLASS XA1S 



MACH. 
TYPE / (OQ 



DOCUMENT . J ^ _ „ /»_^ — 

t.tle t-15 - Germed teeuesr 



PfZ$cr,?s>&e. 



ISSUE 
DATE 



7df <? 



DRAWN BY 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



DATE 



LU 



UJ 



AA1385 (FORMERLY CA127-1) 



o 



PRINRDMUSA 



— <3L 



i) 



Z^ 



o 



C&mPS 






£ 



5<ET X /L^c,. 



A 






W 



GP& 



£/2£c 





XW P&&T&C 


A 

A 
— £> 




M 




ZNTeAfLufiTS 




\ 


f 








\ 


7 













ser GFTtteo 



A 




$. 



ies 



Tti£ CS>OT£HlS 



A 



i. 






~& 



EMO f 















A 



A 



one,. r= A-r 
vlevgi* ewe. 



farsP j 

• ^- -^ - 



TO 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT >jM f 

class X/n -> 



TYPE ITOO 



DOCUMENT _ - _ 
TITLE 7X3 



- GGrFtce: teemesT 



Attacks & £ 



ISSUE 
DATE 



y°^ ? 



DRAWN BY 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



UJ 

jr 



b- 1 

-c 



AA1385 (FORMERLY CA127-1) 



PRINTED C4 USA 




V£S 




5PD8 



A/51- jta/ 






<J- 



PtZJCuP 




JE 






s/fi? V 



c^;/*^ 
^ /?<£-<&. __ 




JN&. 



ftpD S. TS> 



a 




& 



pretty/ \Ai*gp 

Fffa/n QtAFfEA 
,7TB. /vexT zeexftt 



t 



CAucacAre 




78 l£&Utf'g7* 



£ 



><e r^ M 



sPP 



-4 



kj- 



jus , j: m, /.s^ /tor 

r , 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [~] 

FLOWCHART □ 

DECISION TABLE □ 

OTHER [ | 



DOCUMENT 



class JV/7o 



MACH. 
TYPE / 70ff 



DOCUMENT 



tTtTe t±z- <2> ereuM ZEQuesr 



P*&ces**1L 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT M6R. 



PROJECT NAME 



TASK NO. 



TASK NAME 



RSV 



APPROVED 



DATE 



AA1385 (FORMERLY CA127-U 



PRINTED M USA 

( 



Arden Hlfl^m?#W P0RATI0M MWKlmj MAR 5 1971 

. DIVISION 



r 



DOCUMENT CLASS_____J__ PAGE NO ?__A 

PRODUCT mam- 17DD OPERATING SYSTEM 

PRODUCT MODEL NO.I___L______0 MACHINE SERIES 1.7011 



35.0 LIBRARY EDITING - LIBEDT 

TABLE OF CONTENTS 



£_12_- 



35.1 PROGRAM FUNCTION 3 r j._B 

35. E ENTRY POINT NAMES 35-1 

35.3 EXTERNALS AND DESCRIPTION 35.1 

35. M ENTRY INTERFACES 35. E 

35.5 EXTERNAL INTERFACES 35*E 

35. t. GENERAL PROGRAM INFORMATION 35. E 

35.-.1 CORE AND MASS STORAGE LAYOUT OF LIBEDT 35.3 

35.L..E AREA3 AND AREAM SUBROUTINES 35. M 

35. b. 3 ACCEPTABLE LIBEDT CONTROL STATEMENTS 35. _ 

35.L.. M LIBEDT ERROR MESSAGES 35. t, 

35. b. 5 INTER MODULE COMMUNICATIONS STORAGE IN 35-7 
EXECUTIVE MODULE 

35. b. 5.1 DEFINITION OF STORAGE 35°7 

35.k,. 5. 2 CROSS REFERENCE OF STORAGE 35d7 
USAGE 

35.7 GENERAL DESIGN PECULIARITIES 35. El 

35.7.1 EXECUTIVE MODULE INTERFACE 35-E1 

35. 7. E MODIFICATION TECHNIQUES 35. E3 

35.7.3 ADDITION OF NEW STATEMENT PROCESSOR-Cs} 35-E3 
AND/OR SUBROUTINES 

35. A PROGRAM LOGIC 35. E5 

35.6.1 EXECUTIVE MODULE 35oE5 



AA 3777 PRINTED IN U&A. 



CONTROL DATA CORPORATION 

Arden Hills Development 



DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME_ 



IMS 



170 0HLKAI1NG SYSTLM 



MAR 5 1971 



PAGE NO. 35*»\«\ 



PRODUCT MODEL NO. 



TDTJE^TTJ 



MACHINE SERIES. 



1700 



TABLE OF CONTENTS {Continued 

35.fi. 2 MAIN LIBEDT CONTROL MODULE 

35.5.3 LIBEDT STATEMENT PROCESSORS 

35.fi. 3.1 LIST PROGRAM DIRECTOR-LISTPD 

35. A. 3. E LIST SYSTEM DIRECTORY-LISTSD 

35.fi. 3. 3 PUNCH ABSOLUTE RECO RDS-PGHABS 

35.A.3.M SYSTEM LIBRARY UPDATE-SLINSN 

35.fi. 3. 5 ADD-REMOVE-REPLACE PROGRAMS 
AND REMOVE FILES-PLINSN 

35.fi.3.b ADD-REPLACE-UPDATE PERMANENT 
FILES-FILE 

35.fi. 3. 7 SET SYSTEM DIRECTORY REQUEST 
PRIORITIES-RPUPDT 

3S.fi.3.fi COPY BINARY AND ASCII RECORDS- 
COPY 

35. T SUBROUTINE LOGIC 

35.T.1 EXECUTIVE MODULE SUBROUTINES 

35. T. 2 MAIN CONTROL MODULE SUBROUTINES 

35. T. 3 AREA3 SUBROUTINES 

35.T.M AREAM SUBROUTINES 



Paae 



35. 


.25 


35. 


.27 


35. 


.27 


35. 


.27 


35. 


.sa 


35. 


• ST 


35. 


.32 



35.35 

35. 3T 

35. MD 

35.112 
35. 142 
35. i4M 
35. M5 
35.51 






AA 3777 



PRINTED IN USA 



C0N I^fen D ^Vl fgf fltfffttent n , vlclnM MAR 5 1971 



DOCUMENT CLASS_IMS . PAGE NO ^ *^ 

PRODUCT mamp 17DD OPERATING SYSTEM 

PRODUCT MODEL mo EQ0fci*3.a MACHINE SERIES 12S1Q 



35. 1 PROGRAM FUNCTION 

The library editing program is a mass storage resident 
program that is called into execution in protected 
core by the Job Processor to perform the following 
functions: 

a- Listing the program library directory 

b- Listing the system library directory 

c- Absolutizing and punching relocatable binary input 

d- Replacing programs in the system library directory 

e. Deletioni replacement and addition of programs in 
the program library 

f. Deletion of permanent files from the program library 
g- Insertion and update of files in the program directory 
h- Setting request priorities in the system directory. 

i. Transfers of records between any two peripheral devices 

35.2 ENTRY-POINT NAMES 
LBDT 

35.3 EXTERNALS AND DESCRIPTION 

FILE2 - Location in TRVEC which contains the absolute 
starting address of LIBEDT when it is in core. 

SUITCH - Flag in TRVEC which is checked by LIBEDT 

before most input or output to determine if 
the job is to be terminated. 

UNPIO - Location is TRVEC which contains the number of 
unprotected I/O requests in progress. 

SUAPCK - Routine in DRCORE used to decrement the number 
of pending unprotected I/O requests. 

L0G1A - Logical unit table -[indexed by logical unit} 
which contains the core location of the 
physical device table entry corresponding to 
lack logical unit. 
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NUMLU - Number of Logical Units in SYSBUF 

PCOMFL - Protected Common Flag in TRVEC used by the 
loader to insure Protected Common is not 
entered during a loader operation - 

LIBEDT - Entry for LIBEDT in the System Library Directory 



35. M ENTRY INTERFACES 



LIBEDT is scheduled for execution by JOBENT in response 
to a *LIBEDT statement from the Job Processor or the 
Manual Interrupt Processor. Upon entry LIBEDT^s starting 
address is stored in FILEE in TRVEC to be used by the 
JOB Processor to release LIBEDT when its operations 
are completed- The (3 register contains the return address 
to the JOB Processor and is saved upon entry- 

35.5 EXTERNAL INTERFACES 

Exit from LIBEDT will occur for any of the following 
three conditions: 

a> a *Z command is presented from the input comment device 

b> the JOB KILL switch in TRVEC is set. 

c> a fatal error during an overlay operation within LIBEDT. 

In all cases exit is made by a jump to the return address 
in the JOB Processor saved upon entry. 

35. t, GENERAL PROGRAM INFORMATION 
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35. 3 



3S.t,.l 



CORE AND MASS STORAGE LAYOUTS OF LIBEDT 
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Figure *1 
MASS STORAGE LAYOUT 
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AREA3 AND AREAM SUBROUTINES 
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Group SUBR. U.S. RELOC 

No. ADDRESS FACTOR 

5 SEARCH-LBDT SERCH 



b INPUT-LBDT INPREL 

7 I1ASSUP-LBDT flASUP 



EES-LBDT 



EESREL 



SUBROUTINE 
INCREMENT 
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NAME 
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35. b. 3 ACCEPTABLE LIBEDT CONTROL STATEMENTS 



CONTROL 


INTERPRETATION 


ENTRY POINT 


STATEMENT 


CODE 


NAME 


«DL 
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LISTPD 


*DM 
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LISTSD 


*V 
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SYSINP 


*U 
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CONCTL 
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14 


LIBXIT 


"K 
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CHANGE 


MP 
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PGHABS 
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SLINSN 
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fl 


PLINSN 


*N 
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FILE 


mS 


10 


RPUPDT 


"T 


11 


COPY 


xR 


IE 


PLINSN 



3S.b.M LIBEDT ERROR MESSAGES 



L01 More than six characters in a parameter name 
presented to the library editing program - 

LOE More than L> digits in a number presented to the 
library editing program- 

L03 Improper system directory ordinal presented to 
the library editing program. 

L04 Invalid control statement presented to the 
library editing program. 

LOS Illegal field delimiter in a control statement 
presented to the library editing program. 

L0fc> Illegal field in control statement presented to 
the library editing program. 



! ) 



V 



AA 3777 PRINTED IN USX 



CONTROL DATA CORPORATION Mnn _ 
ArHpn Hills Development DIVISION MAR 5 1971 

DOCUMENT CLASS ?[]* A „- n Ant ,. M/ . ^^^ PAGE NO 35 ' ? 

PRODUCT namp ^T7PD_0PERATING SYSTEM 

PRODUCT MODELNO.- E00b"3.Q MACHINE SERIES 17UQ 



o 



L07 Errors in loading as a result of a library 
editing program control statement. 

LDfi A program to be added to the program library has an 
entry point duplicating one already in the directory 

LOT Standard input failed on first input record 
following an *N request. 

LID The operator is deleting a program which is not 
in the library. 

Lll No header record on file input from mass storage. 

L12 On an *Li entry statement! either there was an 
input error or the first record was not a NAM 
block. 

L13 Common declared by the program being loaded ex- 
ceeds available common. 

L14 Program being loaded is longer than the size of 
unprotected core to the top of core. 

L15 Illegal input block encounteredn last program 
stored in library is not complete- 

Lib I/O input error occurred last program stored is 
not complete. 

L17 "L program being installed exceeds the capacity 
of LIBEDT to input from mass storage- 

LIS Attempt to load a zero length program during a 
"M function. 



35. b. 5 INTER MODULE COMMUNICATION STORAGE IN THE EXECUTIVE 
MODULE 

35- b. 5.1 DEFINITION OF STORAGE 
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35.b-5.l-l STORAGE ADDRESSABLE THROUGH I REGISTER 

XXK LIBEDT statement deparameterizing buffer - 
7 words in length 

(3S Word count indicator for system directory listing 
processing 

TS Uord count indicator for program directory listing 

EMTK Indicates if output is blocked or unblocked. 

ERCA Absolute address of LIBEDT I/O tables -CI0TAB} 

UDCNT Uord length indicator for punching absolutized 
programs 

NOLJLB Uord length indicator for system update program - 
SLINSN 

SECAD M.S. sector address for file inputs - MSB n also f 
temporary storage 

SECAD+2 

M.S. sector address for file inputs - LSB 

SIC Address of current program block being input -USB 

SIC+2 Address of current program block being input -LSB 

US Uord length for mass storage FREAD and FURITE requests 

US+1 Pointer for storage of entry name words in pro- 
gram directory 

IOUC Not used 

NOULR Not used 

ORCA Not used 

0RCA+1 

Not used 
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B1BABS Temporary address of BUFF1B 

NSIX Constant to set bQ word read or write length 

SSIX Constant to set Tb word read or write length 

PIBUFF LIBEDT statement input buffer - lb words in 
length 

TERMSU Terminating buffer indicator for reading input 
statement 

RETAD Return address in job processor for release of 
LIBEDT 

RA Bit counter for sector availability table usage 

INTflP Sector address compare for sector availability 
table usage - USB 

INTMP+1 Sector address compare for sector availability 
table usage -LSB 

ZS Absolute LIBEDT address of ZSEC 

ZS+1 Absolute address of BUFF1C I/O buffer for 
program library input 

ZS+E Sector update counter 

ZSEC Beginning sector number of program library 
directory - MSB 

ZSEC+1 Beginning sector number of program library 
directory - LSB 

TTEMP Word counter for statement deparameterizing 
and Sys. Directory output 

TTEMP+1 Uord counter for picking entry-points out of 
the input buffer 

HR Address pointer for directory listing in 
BUFF1A I/O buffer 
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ORD Index to entry being updated in system directory 
SLINSN 

USK Not used 

WSK+1 Not used 

LNOR First available location in last program 
directory block allocated 

LASTAD Absolute address of BUFF1C I/O buffer 

LSECAD Absolute LIBEDT address of last 

SYSTEM Sector on which system resides 

ADDCT1 Parameter pickup counter for input statement 
deparame te r i z i ng 

ERRNNM Storage for error code to be output by main 
control module 

ENTSEC Address of first program block input - MSB 

ENTSEC+1 Address of first program block input - LSB 

ENTSEC + 5 Beginning sector address of file being removed 
for possible $C1 update 

SECS Beginning sector address of S.A.T. - USB 

SECS+1 Beginning sector address of S.A.T. - LSB 

SECX Sector address of currently used sector of 
S.A.T. - USB 

SECX+1 Sector address of currently used sector of S.A.T. 
LSB 

IOSEC Not used 
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IOSEC+1 Sector number of current program or file 
block being removed 

BUF1S Absolute address of S.A.T. core buffer 

BUF1S+1 Not used 

SATMP Contents of SATMP+1 

SATMP+1 S.A.T. input buffer word address containing 
empty sectors 

BUFF1A Absolute address of BUFF1A I/O buffer 

BUFF1B Absolute address of BUFF1B I/O buffer 

BUFF1C Absolute address of BUFF1C I/O buffer 

BUFF1D Absolute address of BUFF1D I/O buffer 

SICID Absolute LIBEDT address of SIC 

IOSAD Absolute address of BUFF1D I/O buffer 

NENT Not used 

NORD Mass storage sector address for reading routine 
MSB 

NSEC End of program input indicator for PLINSN 

PDSN Mass storage sector address for RtADIN routine 
LSB 

REMOV Signals removal operation to PLINSN 

REMFIL Signals file removal to PLINSN 

UPDATE Set if program replacement active 

POINT Pointer to program library entry for this 
replacement 

SAT Sector address for S.A.T. operations 

DUP Duplicate entry point flag 
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INPPAR Holds a or 1 for S.A.T. update operations 

IOSEAD Absolute LIBEDT address of IOSEC 

WORD Current word in S.A.T. sector being examined 

SEC XII) Absolute LIBEDT address of SECX 

CSSAVE N.S. sector no- of previous program directory 
sector. 

EXTLKA Indicator for library load to clean up un- 
patched externals- 

Ul First word for file update 

W2 Last word for file update 

RDRE(3 Storage for file input mode indicator 

NSINP Mass storage input indicator 

UPDL Number of sector to be released or reserved 
in S.A.T. 

UPDL1 Compare counter for sector release or reservat- 
ion S.A.T. 

UPDSAT Beginning sector no. for release or reservation 
in S.A.T. 

TRISEC Number of update sectors input for file update 
operation 

TRISEC+1 Not used 

NUSECT Program directory entry for new program indicator 

CSCNT Sector counter for multiple input of update sectors 

FILIN Indicator for file module operation 
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LAST Eventual M.S. address of last program directory 

sector - MSB 

LAST+1 Eventual ri-S. address of last program directory 
sector - LSB 

ASAVA3 Temporary storage of A register for AREA3 overlays 

(3SAVA3 Temporary storage of a register for AREA3 overlays 

ASAVA4 Temporary storage of A register for AREA 1 * overlays 

(2SAVA4 Temporary storage of Q register for AREA4 overlays 
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35. b. 5. 1.2 ADDRESSABLE BY PROCESSOR OR SUBROUTINE RELOCATION FACTOR 
35.b.S.l.E.l LIBEDT INPUT/OUT BUFFER ADDRESSES AND SYSTEM ADDRESSES 



INBFAD - Temporary storage for BUFF1A Address 

BUF1A - Temporary storage for BUFF1A Address 

BFASfl - Absolute address of word 5*1 in BUFF1A I/O 
Buffer 

BFA51 - Absolute address of word bO in BUFF1A I/O 
Buffer 

BFCT3 - Absolute address of word TM in BUFF1C I/O 
Buffer 

BFCTM - Absolute address of word TS in BUFF1C I/O 
Buffer 

BFCTS - Absolute address of word lb in BUFF1C I/O 
Buffer 

BFCTb - Absolute address of word Ib+l in BUFF1C I/O 
Buffer 

BFB C 13 - Absolute address of word TM in BUFF1B I/O 
Buffer 

BFBTS - Absolute address of word Tb in BUFF1B I/O 
Buffer 

BFA 1 ^ - Absolute address of word T»4 in BUFF1A I/O 
Buffer 

BFAIM - Absolute address of word TS in BUFF1A I/O 
Buffer 

BFATS - Absolute address of word Tb in BUFF1A I/O 
Buffer 

BFC*4 - Absolute address of word S in BUFF1C I/O 
Buffer 
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BFC15 - Absolute address of word lb in BUFF1C I/O 

Buffer 



- Entry location indicator in program 
directory of duplicate entry point 



BF1BA 

TTTEMP - Absolute LIBEDT address of TTEI1P 



35. b-5-1. E.E LIBEDT INPUT/OUTPUT LOGICAL UNITS TABLE 

IOTAB - System scratch logical unit 

I0TAB+1 - System library logical unit 

IOTAB+E - Standard input logical unit 

IOTAB+3 - Standard binary output logical unit 

IOTAB+M - Standard print logical unit 

IOTAB+5 - Standard output comment device 

IOTAB+b - Standard input logical unit and mode from 
job processor 

35. b. 5. I.E. 3 JOB-KILL ROUTINE ADDRESSES 

JKILLA - Storage for return address when JOBKILL not 
active 

JKILAD - Storage for return address when JOBKILL 
active 

35.b.5.1.E^ OVERLAY PROCESSORS CONTROL LOCATIONS 

(3TEMP - Storage for AREA3 Overlay Subroutine Increment 

PROGE - Subroutine group in AREA3 indicator 

PR0G3 - Subroutine group in AREAH indicator 
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(2TENP1 - Storage for AREAM Overlay Subroutine Increment 

PR0G1 - Processor in AREA2 Indicator 

(2TENP3 - Entry indicator for main LIBEDT control 

module 
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"NOTE: Any entries not crossed referenced complete all their 

operations within the executive module. These may however 
contain valuable debugging information. 
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35.7 GENERAL DESIGN PECULIARITIES 

LIBEDT in an effort to maximize its utilization of pro- 
tected core uses a series of overlays to cause only the 
called for statement processor and a limited number of its 
subroutines to be core resident at any one time during 
execution- LIBEDT is assembled as one program and loaded 
on the library by the initializer. To insure installation 
of LIBEDT in IbK of corei it should be loaded immediately 
after all essential core resident modules. Once loaded on 
the library LIBEDT length in the system directory is 
changed to an actual operating length each time the system 
is autoloaded through the space module. 

The LIBEDT program consists of a resident executive modulei 
a main LIBEDT processing modulen statement processors! and 
subroutines. The executive routines and tables are 
resident as long as LIBEDT is operational. The main pro- 
cessing module is overlaid into core after LIBEDT has been 
started up to determine the type of operation to be per- 
formedn and to set up the I/O table properly before executing 
a statement processor. This module is also brought in to 
process any errors and to pick up the next statement to be 
analyzed. This module runs in both AREAS and AREA3. The 
statement processors are read into AREAS by the main 
control module as each is called for and remains there until 
the main control module is brought back in. All subroutines 
used by the statement processors run either in AREA3 or 
AREAM as they are called for. In most casesn a subroutine 
group consists of several subroutines that are executed 
together or frequently by a particular processor. Refer to 
Figure 1 for LIBEDT mass memory layout and Figure E and 3 
for its allocatable core structures. 



35. 7.1 EXECUTIVE MODULE INTERFACE 

The executive module which remains in AREA1 until all 
LIBEDT functions are completed serves as the communications 
vehicle between the active statement processor and 
subroutine groups. Since the relative execution locations 
are not the same in core as they are on mass storage for the 
main control module.,the statement processors., and subroutines n 
the executive module is addressable in only two ways. 
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The first method is through the "I v register which serves 
as a pointer to a series of buffers n tablesi counters and 
mass storage and core address o Uhen referencing any 
information in this area the reference can be made 
absolutely through *I*. 

For communications with any location other than those 
controlled by the I register it is necessary to use a 
relative corrective increment which is added to the desired 
address in the control module. This relative increment 
must appear at the beginning of the area that is to be 
overlaid«i and serves to make operations in overlays relative 
to the area in LIBEDT where it is to be executed. 

A second feature of the executive module communication 
necessitating observance is the method of overlaying and 
passing information to subroutines from main processors or 
from subroutine to subroutine. In the executive module 
there are two tables {section 35.b.2> which contain the 
relative address of each subroutine group to run in AREA3 
and AREA4- To bring the proper subroutine into execution 
in either AREA3 or AREA 1 * the following procedure must be 
performed. 

First any information to be passed to the subroutine can be 
saved in LIBEDT^s executive table locations labeled 
(2SAVA3 and ASAVA3 for AREA3 and (2SAVA4 and ASAVAM for AREA4. 
The A and 0. registers will be loaded with these values after 
the subroutine has been overlaided. Once this operation 
is completed the A register is loaded with the number or 
the subroutine group desired in the particular area and d 
is loaded with the increment to the entry point of the 
subroutine requested within this subroutine group» The 
first subroutine in each groupisince it is at the beginning 
of the area does not necessitate an increment and therefore 
the (3 register should be entered with zero -CO}. 

After these parameters are set entry can be made to the 
overlay processor for the desired area through a return 
jump. The return address will be set in the first word of 
the selected subroutine for exit back at P+l of the location 
from which the subroutine overlay call was made» 
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35. 7. E PRECAUTION TO OBSERVE DURING MODIFICATION TO LIBEDT 

LIBEDT with its present structure is designed to utilize 
a minimum amount of allocatable core without serious 
degradation in performance- Since this is the casei 
strict observance should be given to certain key parameters 
whenever system modification or program corrections are 
implemented. 

Besides proper addressing to the executive modulen the 
primary factor to observe is that the size limits for the 
various areas are set correctly- The limits for HS0S 3-D 
release version of LIBEDT are 1> 3QQ for AREAEn where the 
statement processor runsi E> EQQ for AREA3 subroutines! 
and 3} EDO for AREA 1 * subroutine- The lengths of these 
areas are. set by Et3U v s in the beginning of the program 
and can be changed if necessary- It should be noted 
howevern that whenever th^se EflU^s are expanded or when the 
size of the executive module is expanded the total length 
of LIBEDT will be increased and may require changing the 
operating length of the program put in the system directory 
at autoload time through the space module. Expansion if in 
excess of the present size of the Job Processors require- 
ments -[approximately IbSD words} may require increase the 
size of allocatable core where LIBEDT runs. The release 
version of LIBEDT uses IDTO exclusive of JOBENT. 

The main LIBEDT control module can be the size of AREAE and 
AREA3 in LIBEDT which at present is SOD words. This length 
is not controlled by on E(3U although one exists for con- 
venience in identifying it- It mayn howevern be modified 
by changing the length inserted in the Overlay request at 
entry point TRANF in the executive module. 

The total core length of LIBEDT is calculated by a E(2U 
at the end of the startup routine* as well as the starting 
address for each area- These E(2U^s can be checked for 
convenience in determining correct core allocation » 

35-7.3 ADDITION OF NEW STATEMENT PROCESSOR AND/OR SUBROUTINES 

The capability of adding new processing operations to 
LIBEDT can be accomplished with relative ease by observing 
the following procedures: 
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1> Set up the mass storage address of the new statement 
processor at the end of the ADCT address table in 
the main control module. This address is of the 
following form: 

e.g. ADC Process-LBDT m 



E> Supply an interpretation code at the end of the 

interpretation code table- This table in the control 
module has entries MlnME ..... .1113- Two instructions 

must be placed in the table. A jump to the routine 
responsible for overlaying the statement processors and 
an instruction for setting the interpretation code. 

e.g. Mm EN<2 13 

JMP" fIGO 

NOTE: These two instructions will be placed after 
the N13 entry- 

3} Insert a one character control statement name into the 
table FUNTAB in the control module. If the control 
statement name is two characters it must be placed in 
FEND. In either case a jump to the interpretation code 
routine must also be supplied. 

e.g. ALF l-i*ld 

jfip* rim 



e.g. ALF ln"G0 
NUM 6 M7FF 
JMP" MIS 

To add new subroutines for a new processor or for existing 
processors the rules to observe are: 

For subroutines in AREA3 set the mass memory address of the 
subroutine in the table of AREA3 subroutines in the 
executive module. 

e.g. ADC LOADUP-LBDT S 
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The position in the table will determine the value entered 
in the A register {this example 5> to call the subroutine 
group- The rules for AREA 1 ! subroutines are the same ex- 
cept the mass storage address is placed in the table of 
flREA 1 ! subroutines in the executive module. 

35. a PROGRAM LOGIC 

35. A. 1 EXECUTIVE MODULE 

After being scheduled by the JOB PROCESSOR the executive 
module of LIBEDT is entered to initialize all tablesn 
buffer areasn and address to be used in inter-module and 
system communications. 

Upon entrance the starting core address of LIBEDT is 
saved in FILEE in TRVEC to be used by the JOB PROCESSOR 
for the release of LIBEDT. The return address in the 
JOB processor where the release is performed is passed 
in the Q register and saved. The I register is next 
setup to serve as an index to a series of buffers, tables i 
and address storage locations used between processors 
and subroutines. {section 35.h.5>. Exit is next made to 
a one time startup routine which sets essential infor- 
mation to commence processing. This includes LIBEDT v s 
I/O logical unit tablen the input/output buffers in 
unprotected core and necessary addresses within these 
buffersn temporary unprotected core limitsn and initializat- 
ion of the Sector Availability Table parameters. LIBEDT 
next sets the correct job mode indicator in the I/O 
table and prints the message LIB on the standard comment 
device. Before continuing to overlay the main control 
module the startup routine completes it*s final task 
which is to calculate the sector on the disk where the 
system resides and save this address. 

35. ft. 2 MAIN LIBEDT CONTROL MODULE 

This module which resides in both AREAS and AREA3 is 
responsible for processing communications between the 
operator and LIBEDT. This includes notifying the 
operator that the program is ready to initiate a new 
process by output the IN messagen notification of any error 
conditions n interrogation of comment device and processing 
of all input statements! and execution of *Ki"V and "U 
statements which alter standard logical units. 
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Once in core this module can be entered at three different 
locations- The actual entry point is determined by the 
value entered in the 0. register when exiting to perform 
the overlay to bring in this module- A zero -CO} in <2 
signals that processing is proceeding as specified and 
entry should be at RPSA. A one -CI} in 0. notifies the 
operator that the job kill switch was set during 
processing and entry should be made at RPSX to exit 
directly to the Job Processor. A three -C31 in Q. means 
an error condition occurred and entry is to be made at NEXT1 
to process the error before returning with the IN message. 

On initial entry to the main control module the IN 
message is output to the comment device when LIBEDT is 
ready to read a control statement from the comment or 
input device o If reading the device causes an error 
returnn the comment device will automatically be re-read 
tor a correct or new control statement - 

The acceptable control statements to LIBEDT along with 
their entry points and operation interpretation codes 
supplied by LIBEDT are given in section 35-b-3- The 
interpretation code is stored in a executive module cell 
called PROGIt which can be checked to determine which 
processor is in during debugging- This cell is also used 
when a statement processor is overlaid. 

All control statement names are stored in the table FUNTAB 
along with a jump to a routine for setting the 
interpretation code- The interpretation code is also 
responsible for determining the overlay of the proper 
processor- A list of statement processor entry-point 
addresses is supplied in the table ADCT. Using the inter- 
pretation code as an indexn one of these entries is 
selected and used to calculate the beginning mass storage 
address- The length for the read is set as 3D0 words and 
a jump is made to entry point BRIPR1 to perform the 
overlay of the correct statement processors. Ir the size 
of AREA2 is ever changed this 3DD word read length must 
also be changed- 
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35.A.3 LIBEDT STATEMENT PROCESSORS 

3S.fl-3-l LIST PROGRAM DIRECTORY - LISTPD 

The routine responsible for listing the program directory 
is LISTPD. Each entry point and file in the program 
directory is listed in the following format: 

ENTRY SECT. LSB 

FILE SECT. LSB FILE 

The name of the entry point or file appears first followed 
by the word *SECT.* To the right of *SECT.* appears 
the least significant bits of the first mass storage 
sector onto which the information was stored. A file is 
distinguished by the word FILE appearing to the right of 
the least significant bits. 

Prior to reading a program directory sectorn a test is 
made to determine if the last program directory sector 
has been processed- If the last sector has been processedn 
the message FINI is output on the comment medium and control 
returns to the main control module. LIBEDT in turn types 
IN and anticipates a new control statement. If the last 
sector has not been processed! each entry will be 
interrogated to determine if it is an entry pointn file 
or null. Entry points and files will be output in the 
format described previously and null entries will be 
ignored. A null entry is one in which all words of the 
entry are zero. 

35.A.3.S LIST SYSTEM DIRECTORY - LISTSD 

LISTSD is the routine responsible for listing the system 
directory. The system directory is listed on the standard 
output LIST device. The format of the output depends on 
the contents of the directory. If core resident ■C L 4 word} 
entries existn they will be listed prior to mass storage 
resident -C7 word} entries. Only those parts of the 
directory which actually exist will be listed. The main 
control locations for this routine are: 

1« 5EB - Core location of the system directory 
B- $E7 - Index to first mass storage entry 
3. $Eb - Length of the system directory 
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The number of core resident entries is obtained by 
dividing the contents of s?E7 by four- The number of 
mass storage resident entries is obtained by computing 
the difference -C^ELi} - -C$E7> and dividing by seven.. If 
either are zeron they will not be listed.. 

35. fl. 3-3 PUNCH ABSOLUTE RECORDS - PGHABS 

PGHABS is responsible for reading in'i absolutizing and 

punching out programs in a single record of program length 

or in multiple records of length Tb words- Upon entering 

PGHABSn the next field is scanned for an F- If an F is 

foundn multiple records of length Tb words will be punched.. 

Relocatable binary programs are loaded by the relocating 

loader which has the capability of loading onto mass 

storage. Programs on the input device are first loaded 

via a relocatable binary load as a result of a request to 

the loader. A subroutine load is then performed in an 

attempt to patch all unpatched externals- Any unpatched 

externals at the conclusion of subroutine load are then r— 

listed by the loader- At this point the operation may v_ 

be continued by typing in an m cr or may be deleted by 

typing in an *T cr. 

After loading has occurredi control returns to PGHABS which 
must punch the information. PGHABS first determines whether 
the loader placed the program-Cs} on mass storage- If the 
program-Cs} reside-Cs} on mass storage it will be moved from 
there to unprotected core- If the program -Cs> was not 
placed on mass storagen it already appears in unprotected 
core. In either case a test is next made to determine 
if one record or multiple records are to be punched- If one 
record is to be punchedn the starting address of the output 
buffer is set to the lowest unprotected location -C^F7>+1 
and the length of the record is set to the length of the 
load -C$ED> - -C*F7>- A test is then made to determine if 
the job has been killed by the job processor. If the job 
has been killed punching will not occur. If the job has 
not been killed PGHABS determines if the absolutized file 
is to be output on mass storage- If this is the casei 
PGHABS outputs a three word header record containing the 
word count followed by a two word identification field 
containing *LIBE*- The header record is used by the FILE 
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module in determining the number of sectors to read from 
mass storage. The punch driver is then entered and the 
program reads output. 

If Tb word records are desiredn the length of load is 
divided by Tb yielding v n* Tb word blocks and one block 
R where 0<.Rdb. The same procedure described for a single 
block is applied when punching multiple Tb word blocksn 
except that prior to punching a new blockn the output 
buffer pointer is advanced by Tb words. After all 
punching has occuredi control returns to the main control 
module. This is signalled by IN appearing on the comment 
medium. 



35.S.3.M SYSTEM LIBRARY UPDATE - SLINSN 

The SLINSN program is responsible for updating programs 
in the system directory. On entry to SLINSNn a control 
statement test is made to determine if a numeric ordinal 
to an entry in the system directory appears. If a non- 
numeric or no ordinal is fbundi Lb appears on the comment 
medium. If a numeric ordinal is foundi a control state- 
ment test is made for a numeric sector number- If a non- 
numeric sector number n Lb appears on the comment medium. 
If no sector number or a sector number is foundn it is 
saved and . the next field interrogated. 

The next parameter checked for is the -Cd> data base- If 
no field is specified processing passes to an examination 
of the H parameter. Uhen the -Cd> is presenti howeveri 
the program first sets a flag to signal that the job 
kill switch should be unset upon return from the loader to 
allow processing of this parameter. The job kill flag is 
set since EM loader errors occur when setting the data 
base. These errors are noti howeveri critical to 
performing this function. The list output device should 
be checked to make sure no other fatal loader error-Cs} 
occurred. The actual setting of the data is accomplished 
by making a loader call with a function seven ■£?} in the 
A register and the converted data base in the Q register.. 
The data base must be specified to LIBEDT in decimal due 
to conversion in the parameter unpacking routine PPRK. 
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If an H appears in the next control statement field i the 
system directory ordinal is assumed to be in the mass 
storage part of the directory- If no N appearsn a test 
is made to determine if a sector number appeared in the 
control statement- If one didi Lb appears on the comment 
medium- If no sector number was suppliedn it is assumed 
that the system directory ordinal is in the core resident 
part of the directory and control is transferred to the 
routine CORRES. 

35. fl. 3.1.1 UPDATE OF CORE RESIDENT ENTRIES 

The CORRES routine converts the ordinal input on the 
control statement to an index to an entry in the system 
directory. 

This is done as follows: 
{ordinal number - 1>*4 ORD 

If this index exceeds the index to the first mass storage 
entry in £E7t the Lb appears on the comment medium- If the 
index is validi a relocatable binary program load is 
started- Once all programs have been loaded from the in- 
put devicei a subroutine load is performed to patch any 
unpatched externals- At the conclusion of subroutine load 
all unpatched externals will be printed. To terminate the 
operation at this pointn type an *T cr- Otherwise! type 
an * cr. 

Once control has returned to SLINSN from the loaderi a test 
is made to determine if loading took place onto mass 
storage. If it didn the program is brought into un- 
protected core and stored- If not the length of the 
program is checked to make sure a zero length program was 
not loaded in which cae an error lfl is output. 

The program in unprotected core is next movedn with 
interrupts offn to some area of protected core- Exit is 
then made from SLINSN. 
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3S.fl.3^.a UPDATE OF MASS STORAGE RESIDENT ENTRIES 

Updating entries in the mass storage resident part of 
the directory is handled in a fashion similar to its 
core resident counter part- These exceptions are noted: 

1- An index to an entry in the mass storage resident 
part of the directory is computed. 

{ordinal number -1>* 7 + -C$E7> ORD 

2. Loading occurs as previously described except that 
upon completion of the load the N parameter of the 
LIBEDT call is checked to see if linking to the 
program library was requested. If requested! make a 
second loader call to complete this task. The load 
length is also checked as described for core resident 
entries. 

3- A test is made to determine if the program just loaded 
will fit on the mass storage sectors of the old 
program. If the program fits and it is currently in 
unprotected core-i it is moved from unprotected core 
to the specified sector. If the program was loaded 
onto mass storagei it must first be moved to un- 
protected core prior to outputting it onto mass 
storage on the specified sector . 

W. If the program just loaded will not fit onto the 
sectors of the old program -, and loading took place 
on mass storagei then the scratch sector will be 
updated to point around the newly taken sector n 
and the Sector Availability Table -CS.A.T.} will be 
updated to reserve these sectors from any other LIBEDT 
action. The sectors for the old program will be 
released from the S.A.T.t thus making them available 
for other LIBEDT action. It the program was loaded 
into unprotected coren it will be moved from 
unprotected core to the scratch area and the scratch 
sector will be updated. In both of the cases under M.t 
the mass storage sector on which the program resides i 
as indicated by the system directory entry * must be 
updated. The mass storage resident $CD and 5C1 are also 
updated. 
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5. Under 3- and l 4. the word count in the system 
directory entry is modified to reflect the new 
program length. 

35. A. 3. H. 3 PROCEDURE WHEN SECTOR NUMBER IS SPECIFIED 

When a sector number appears in a control statementn 
it is converted from decimal to hexadecimal and stored 
in the system directory entry along with the program 
length. No tests are made to determine where the 
program is being stored and no attempt is made to modify 
CD and CI- Loading and transferring then occurs as 
described in 35.fi. 3.M. 2 



3S.fi. 3. 5 ADD-REMOVE-REPLACE PROGRAMS AND REMOVE FILES-PLINSN 

The PLINSN program is responsible for updating the 
program library. It provides for deletion-i insertion 
and addition of programs to the library- It is also 
responsible for deleting permanent files from the 
library. This module is entered as a result of a *Lt 
entry point name or a "Ri namen F submitted to LIBEDT- 
The first function performed by PLINSN is determining 
the type of control statement presented to it. If the 
control statement is a *Rt a remove flag is set- The 
next function is the scanning of the name field for an 
entry point name. If no entry point name is supplied! 
Lb appears on the comment medium. If the remove flag 
is oni PLINSN then scans the next field to see if the 
file parameter was input. If it is presentn a flag is 
set indicating that a permanent file is to be removed. 
PLINSN then uses the entry point name as a search 
argument in the program directory! taking into account 
whether it is searching for a program name or permanent 
file name. If a match is foundi PLINSN enters either the 
REPL routine or the REPLED routine depending on whether 
a program or permanent file is to be operated on- If no 
match is foundn PLINSN checks the remove flagi if it is 
on LID appears on the comment medium and PLINSN returns 
control to LIBEDT. If the remove flag is off PLINSN 
overlays the NBEK routine. 
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35-A.3-5.1 ENTRY POINT FOUND IN PROGRAM DIRECTORY 

If an entry point name is found to be in the Program 
Directory! PLINSN enters the REPL routine- REPL first 
clears all entries in the program directory which 
reside on the same sector as the entry point found as 
a result of scanning the Program Directory- REPL then 
frees all sectors used by the program from the Sector 
Availability Table- If the remove flag is offi REPL 
then enters the NBEK routine {see Section 35.A.3.5} to 
string the new program in the library. If the remove 
flag is orii REPL enters the XXTA routine to write out 
the S»A.T. table and update $C0 and $C1 on the mass 
storage resident system. 

35. A- 3. S. 5 REMOVING PERMANENT FILES FROM THE LIBRARY 

If a permanent file is to be removed from the library! 
PLINSN enters the REPLUG) routine. REPL20 obtains the 
starting sector and file length from the program 
directory and computes the last sector of the file. 
REPL20 then deletes the file name from the Program 
directory and releases all sectors on which the file 
resides from the Sector Availability Table. REPL5D 
then enters the XYTA routine to write the S.A.T.. table 
back on mass storage and to update $CD and $C1 on the 
mass storage resident system. 

35. A. 3. 5.3 ENTRY POINT NOT IN PROGRAM DIRECTORY 

For new programs PLINSN enters the NBEK routine. NBEK 
searches the Sector Availability Table for empty sectors 
to string the program blocks through. Each block 
occupies one sector with words 5T and bO of the block 
set to the sector number containing the next block of the 
program. Uhen the last block {XFR block} is readi words 
ST and bO are set to zero to denote the end of the 
program string. Each entry point name of the program 
is compared with all the program entry point names in 
the directory. If it is unique -Cno match} the entry 
point name is placed in the directory along with the 
sector onto which the first program block was stored- 
If a duplicate entry point is encountered during the 
directory scani NBEK sets an error flag indicating a 
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duplicate entry point name has been encountered and 
continues inserting the program blocks into the library 
until an XFR block is found- If a new program 
directory sector is needed as a result of placing a 
new entry point name into the program directoryn the 
Sector Availability Table is searched for an empty 
sector and the program directory is strung- through this 
new sector. Before exitingn NBEK checks the error flag 
for duplicate entry point names. If the flag is offn 
NBEK enters the XYT routine. If the error flag is onn 
NBEK sets the remove flag on and enters the REPL routine 
to delete the new program from the Program LIBRARY. 

When adding new programs to the library it should be noted 
that the process for inserting new program blocks on the 
library is altered somewhat if the new program is being 
input from mass storage. To insure that program library 
directory blocks do not wipe out entry point blocks when 
processing these blocks from mass storage the following 
alternate procedure is used. f 

1. All blocks prior to the first entry point block are 
output block by block as previously described. 

2. Once the first entry point block is encounteredi all 
entry point blocksn external blocks and the XFER 
block are read into unprotected core. 

3. These blocks are now put back on the library one block 
at a time from unprotected core. A search for an 
available sector is done prior to output of each sector. 
The SEARCH routine also zeros the sector out in the 
Sector Availability Table -CS.A.T.}. 

4. If a new program library directory sector is now re- 
quired when processing the entry point blocksn this 
block can be obtained from mass storage without 
destroying any program blocks. 
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35.fl.3.5.«4 EXITING AFTER INSTALLING NEW PROGRAM 

To exit back to the main control module after installing 
a new program the XYT routine is entered- This routine 
first writes out the S.A.T. sector being used to mass 
storage- Next a check is made to see if the error flag 
for duplicate entry points is on- If this is the case an 
overlay is performed to bring the removed portion of this 
processor back into core to remove the program just 
installed- {see Section 35.8.3.5-1}. After removal an 
LDfl error will appear on the comment medium and control 
returned to the main control module. 

If no duplicate error occurred XYT proceeds to update 
$C0 and $C1 on the mass storage resident system. Before 
exiting back to the main control module a check is 
made to determine if an input error or illegal black 
error occurred during the input of the program. If 
either error 15 or lb occurred the error message will be 
output. Another attempt can be made to replace or remove 
this program since the next sector pointer in the last 
block output was set to zeros before exiting with the error 



3S.fl.3.b 



REPLACE-, ADDITION-, AND UPDATE OF PERMANENT FILES - FILE 



FILE module is responsible for inserting and updating 
files in the program library. This module is entered as a 
result of submitting an "N-, FILNAM-, U1-, US, N statement to 
LIBEDT. 



35.fi.3.b.l CONTROL STATEMENT PROCESSING 

The first field processed by FILE is the file name field 
This field must contain a non-numeric name of length h 
characters or less. If this field is omitted or is all 
numeric-, LIBEDT responds with an Lb error message. 
Otherwise-, control statement processing continues. 
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The next fields processed are the Ul and U2 fields. 
These fields contain the first and last words being 
updated in a file- These fields may be omitted- If 
non-numeric information is found in Ul and U2n the 
message Lb is written- If Ul and U2 are specified! 
they will determine the portion of the file being 
updated- Furthermore! if US appears i a test is made to 
insure that U2 is greater than Ul- If this error is 
detected! Lb appears on the comment medium. 

The final field processed is the input mode field- This 
field must contain either an A or B- If the input 
mode field is At records in ASCII format will be read 
from the standard input device- If the mode is Bt 
Binary records will be expected from that device- Any 
other symbol will cause Lb to appear - 

35.fi.3-b.2 BRANCHING TO FILE SUB-PROCESSOR 

Once all control statement fields have been processed! 
one of two routines is entered to update! or insert or 
replace a file. If no Ul field is specified this is 
a clue to the FILE module that a file is being inserted 
or replaced and that the routine INSREP is to be 
entered- If a Ul field is specified! the file must 
of necessity appear in the program library- In this 
case the UPDATE portion of this processor is overlaid 
into core- Also at this pointi if Ul is zero U2 is 
checked for zero- If U2 is not zero an Lb error is out- 
put since it would appear that an UPDATE was desired 
but the Ul field did not get specified. 

35.fi.3.b-3 THE FILE INSREP ROUTINE 

Upon entering INSREP all replacement blocks will be read 
from the input device and placed on mass storage scratch 
sectors-* A test is then made to determine if the file 
name from the control statement appears in the program 



u 



AA 3777 PRINTED IN USA 



CONTROL DAT 



TROL DATA CORPORATION . .„_ „ 

Arden Hills development pfX/)< . |nH MAR 5 1971 



D 



PRODUC^NAM ^ "5u OFLKAIUH, miLH PAGE N ° 3SilZ 



PRODUCT MODEL "" LUUb»J. U MArHIMF SFRIFI 1700 



o 



library directory- If the file name does not appear 
in the directory-, the routine XXXX2 is entered- At XXXX2 
the length of the new file is picked up and exit made 
to the SEARCH routine to find the first group of 
consecutive available mass storage sectors large enough 
to contain this file- Upon return to the processor! 
a check is made to see if the first sector of this group 
is the first scratch sector -C$C1>- If this is the case 
■CSC1* is updated by the length of the file and the new 
length^s complement and -CSC1} are inserted in the 
program directory t The Sector Availability Table is then 
updated by adding to -C5C1} the length of this file to 
determine the number of sectors to set as occuppied- 
After setting the filers sectors as occuppied in the S.A.T. 
a check is made to see if a new file name is to be placed 
in the directory- If necessary the routine NEUFIL is 
entered by a return jump- The program directory is next 
written back to mass storage. The contents of SCO. and SCI 
on the mass storage resident system is also updated before 
exiting back to the main control module. 

Uhen the group of consecutive available sectors found 
does not begin at -CSC1> then it is necessary to move 
the file to its new location. A check is first made to 
see if any portion of the file after being moved will 
exceed -CSC1}- If this is the case! this increment is 
saved and the processor proceeds to move the file to its 
new location- The new starting mass storage address and 
the complement of the filers length are put in the directory 
and the directory is output to mass storage. -CSC1} is then 
updated if necessary! and the new sectors occuppied are 
zeroed out in the S.A.T. $C0 and SCI are also updated if 
required on the mass storage resident system. 

If the file name from this control statement appears in 
the program library directory! a test is made to determine 
if the replacement file will fit into the area provided 
by the file being replaced. If the replacement will not 
fit! all the sectors for the old program are released from 
the Sector Availability Table and the routine XXXXE is 
entered. Otherwise! the routine REPLAC is entered* 
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The REPLAC routine first checks the length of the new 
filei if it is zero LOT is output to the comment medium 
and control is given to the LIBEDT module- If the 
length is not zeron the routine first updates the 
directory entry by specifying a new sector length for 
the file- The updated program directory sector is then 
output back on mass storage. The replacement file is 
next read into unprotected core! sector by sector t and 
transferred to the mass storage area occupied by the file 
being updated- If the new file is shorter than the 
old file! 1 the unused sectors of the old file are released 
from the Sector Availability Table- Control then returns 
to the main control module - 

35-fl-3-t,-M FILE INPUT FROM MASS STORAGE 

If the input device is mass storage! the routine INPUT 
checks to see if there is a header label with the 
identification *LIBE* in the second and third word of T 
the first sector in the scratch area- If the record 
does not contain the identification *LIBE* LID appears 
on the comment medium and control is given back to 
LIBEDT. If the header record is identified the first word 
of the header is used for the word count of the filei 
and the contents of $C1 are then incremented by one to 
point to the first record of the file. Entry is then 
made at XXXXE to see if the file is to remain in its 
present location or to be moved. If a move is not re- 
quired! the file will remain where it was input to 
mass storage and the process will continue as mentioned 
in the description of the XXXXE routine {see Section 
35-fl.3.b.3>. 

35.fl.3-t,. 5 THE FILE UPDATE ROUTINE 

Immediately after entering UPDATE! all update file blacks 
are read from the standard input device and placed on 
mass storage. * A test is then made to determine if the 
file name from the control statement appears in the 
program library directory- If the name does not appear 
in the directory! L"? appears on the comment medium. If 
the name does appear in the directory! a WE field test is 
made. If UE is not present! only one word in the file 
must be updated and the routine ONONLY is entered. 
Otherwise WE-U1 words of the binary file must be updated 
provided the update does not exceed the library filers 
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length- If &JE-U1 overflows the filen Lfl appears on 
the comment device- If overflow does not occurn the 
first U5-U1 words are removed from the mass storage 
resident update file and inserted into the library 
file starting at word Ul - After inserting WE-U1 words 
into the library filen exit is made from FILE to the 
main control module- This is signalled by IN appearing 
on the comment device. 

When one file word is to be updatedn the routine ONONLY 
is entered- This routine computes the word position in 
the filei of the word being updatedn as follows: 

SS = Starting Sector for File 
(2+R= -CU1> 

UDS= Update Sector = -CSS> + -Cc3> 
UDU = Update word = -CR3--1 



ONONLY then reads the update word from the input device 
and places it in unprotected core- The update word is 
next inserted into word UDU on sector UDS- After 
update is complete! control returns to the main control 
module- 



35-A-3.7 SET SYSTEM DIRECTORY REQUEST PRIORITIES - RPUPDT 

RPUPDT is the statement processor responsible for setting 
the request priorities of all entries in the system 
directory- The request priorities set by RPUPDT will 
determine the area of allocatable core where each of 
these programs may operate- 

The first operation performed by the processor is to 
fetch the ordinal number and request priority from the 
call- Checks are made to assure that these values are 
not non-numeric- If non-numeric an Lb error is output- 
Next a test is made to assert that the specified request 
priority is not greater than sixteen -Clb}. The largest 
allowed- If greater a LI error is output- Two final 
tests are made before inserting the specified request. 
The first of these checks is to see if the entry to be 
updated is mass memory or core resident. The second 
check is to assure that no more parameters are present - 
If soi an Lb error is output. 
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Once all parameters have been deciphered RPUPDT 
proceeds to insert the request priority in the directory 
based on whether it is for a mass storage or core 
resident program^ as previously determined from the call° 
In each case the specified ordinal is checked against 
those in the directory to determine if it is a legal 
ordinal. If not a L3 error is output. If correct the 
request priority is stored in the correct directory 
entry t the position of the entry in the system 
calculated! and the correct value inserted in the 
directory on the mass storage resident system. 

3Sofio3.fi COPY BINARY AND ASCII RECORDS - COPY 

The COPY statement processor is a utility program 

within LIBEDT which allows the transfer of information 

between any two peripheral units. This transfer may 

be in any combination of ASCII or Binary specified. 

The maximum number of records to be transfered may 

also be specified. f 

The actual input and output of the information to be 
.transfered by this processor is done through an FREAD 
and F0RITE request in the processor. All processing 
prior to these two operations is concerned primarily 
with removing the information from the call and 
inserting this information in the correct locations in 
the input and output requests. The following sequence 
of events accomplish this task: 

1. Set the input logical unit in the FREAD request 

A- Check the following features if a unit is specified 

1. Issue an LI error if unit not numeric 

E- 'If the unit specified is not an input unit 
output an Lb error from subroutine LOGUT. 

B. When no unit is specified insert the standard 
input logical unit in the request. 
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E- Pickup SCO and *C1 and save for possible use 
if the mass storage devices are selected. 

3. Set starting address of READ Buffer to first 

unprotected +1 and the length of the READ to the 
size of unprotected core. 

4- Get the input mode 

A- If the value is not non-numeric output a LI 
error • 

B. Check if ASCII or Binary and save 



5. Set the output logical unit in the FURITE request 

A. Check the following feature if a unit is 
specified. 

1. Issue an LI error if unit non-numeric 

S- If the unit specified is not an output unit 
issue an Lb error from subroutine LOGUT. 

B. When no unit is specified insert the standard 
output logical unit in the request. 

b. Check if the maximum record count is specified 

A. If the value obtained is not numeric output a 
LI error 

B. If value is numeric complement and save it. 

C« Idhen no value is specified the value saved is 
zero. 



7. If the input or output is the library or scratch 

mass storage units their mass storage addresses are 
setup for the requests. 

A. Transfer all information as now specified. 
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T- Exit to the subroutine SENDC to output to the 

standard list device the number of records trans- 
ferred. 

ID- From SENDC exit back to the main control module. 



35. ^ SUBROUTINE LOGIC 

3S.T.1 EXECUTIVE MODULE SUBROUTINES 

35. T. 1-1 LIBEDT PROTECT PROCESSOR - B 

This routine is used to monitor protect faults which 
occur during LIBEDT operations with the loader- If 
the fault is caused by a loader entry to the Job 
Processor or the monitor processing continues as 
specified- All other entries will kill the job and 
release LIBEDT. 

3S-T-1-E EXIT LIBEDT - LIBXIT 

Uhen it has been determined that the LIBEDT job should 
be terminated entry is made to LIBXIT where a direct 
jump is made to the Job Processor to release LIBEDT- 
The *Z statement and JKILL routine are the primary users 
of LIBXIT. m 

35. T. 1-3 JOB KILL - JKILL 

In all instances when it is beneficial to check if the 
LIBEDT job has been killed before continuing! entry is 
made to this routine. JKIL'L will determine if exit 
back to the statement processor is necessary before 
returning to the Job Processor- The protected common 
flag used by the loader is also clear in case if it was 
being used by the *M processor. 
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3S.T.m AREA3 OVERLAY ROUTINE - READA3 

On entry to the overlay handler the subroutine group 
increment is saved and a check is made to determine 
if the correct subroutine group is already in. If in 
the increment is added to the start of AREA3 to get the 
entry location. The return address is then put in the 
first word of this subroutine- A-*f2n and I are setup 
and a jump is made to the subroutine - 

Uhen the called for subroutine's group is not in AREA3 
it is first read into the area and the process then 
continues as specified above- If a read error occurs 
while reading the overlay ini the job is aborted and 
exit made back to the Job Processor. 



3S.T-1-5 AREAM OVERLAY ROUTINE - READAM 

The logic flow of the overlay handler for AREA 1 * sub- 
routine groups is the same as that for AREA3 . See the 
description for the AREA3 Handler -C35-T.m>. 



35.1.1-b OVERLAY HANDLER FOR STATEMENT PROCESSORS AND MAIN 
CONTROL MODULE - TRANF 

Uhen overlaying the main control module into AREAS and 
AREA3 entry is made at TRANF. This subroutine first 
save an index which determines where entry is to occur 
in the control module and any error number being passed 
for processing- The length for the read in of the 
control module is put in the request as well as its 
calculated starting mass storage address - 

At BRIPRO and BRIPR1 the actual mass storage read operation 
to bring in the main control module or statement 
processors occur. If a statement processor is to be 
overlaidi its number is saved. This number has no 
significance other than aiding debugging. Once the 
overlay is completed a jump is made to the beginning of 
AREAE -CPROGIN} to beginning processing- 
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35. T. 1.7 MASS MEMORY ADDRESS CALCULATION - MMADDR 

This routine gets the mass storage address of LIBEDT 
from the system directory and converts this sector 
number to word address. The address of the sub- 
routine is then added to this address and supplied to 
the proper overlay routine. 

35.T.2 MAIN CONTROL MODULE SUBROUTINES 

35. T.Sol KREAD ROUTINE 

This routine causes a control statement to be read from 
the comment or input device. Interrogation of the 
statement buffer will continue until a statement is 
input. 

35.T.E-E ERROR PROCESSING - NEXT-, NEXT1 

Entry is made in the main control module at NEXT1 if 
an error message is to be output that occurred outside 
of this module. All error processing from which the 
module enters at NEXT. After output of the error message 
the input statement buffer is interrogated for another 
control statement. 



35. T. 2-3 *V AND mU PROCESSORS - CONCTL - SYSINP" 

The control statement input device is determined by 
CONCTL and SYSINP. When SYSINP is entered the input 
is selected -Cvia ^FT}. Control statements will be read 
from the specified standard input device until a *U 
occurs which sends control back to the standard comment 
device for output of the IN message. 

35. T. 2.i* "K PROCESSOR ROUTINE - CHANGE* 

This routine processes the *K statement. Standard input t 
print or binary output logical units may be changed in 
the I/O table -CI0TAB>n thus allowing the operator the 
option of selecting devices for systems units other than 
those currently used. 
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"NOTE: Since the mZ-i*Vi*Ui and *K are indirect LIBEDT 
functions that service the major processors! 
separate AREAE processor programs do not exist 
to execute these functions- Their present 
locations reduce the need for continuous over- 
laying when setting up to execute a major 
statement function- 



35.1.3 AREA3 SUBROUTINES 

35o c ]»3ol GROUP N0.1 - I1SL0C 

35.1.3.1-1 flASLOC 



r ~\ 



This subroutine checks to see whether the loader when 
processing a *P or *M LIBEDT statement left the 
absolutized file out on mass storage or if it was left 
in core- If it is on mass storage it is brought into 
core- If it is in core it is left there- If the file 
is on mass storage and must be brought into core a 
check is made to insure that it will fit- If it is too 
large a error m is output. 



35-1.3-1- E MOVIT 



The MOVIT routine is used by the «M processor to 
perform a core to core transfer of data from unprotected 
core to the specified starting address in the system 
directory of this core resident program- Interrupts are 
inhibited during the move operation. 



35-1.3-1.3 RDIN 



This is the calling subroutine for the nfl processor 
to execute the MASLOC and MOVIT subroutines. 



35.1.3.m SETCRR 



o 



SETCRR is used to set temporary unprotected core limits 
for those processors that use the loader. 
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35.^.3.1.5 GETCOR 



After a load operation is completed GETCOR can be 
executed to obtain the length of the load in unprotected 

core. 



35. T. 3. 1.5 RBLOD 



This routine is used to execute a relocatable binary 
load from the loader. Once the actual load has 
occurred the routine makes a second call to the loader 
to attempt to clean up all unpatched externals before 
returning to the calling processor. 



35.T.3.1.b LOAD 



All calls to the loader from any other subroutine or 
processor is directed through LOAD. Upon entry the 
A register contains the loader operation code and the 
0. register the core address of the first of three 
sequential locations containing an entry point name 
or an address for data base operations. Upon return 
if normal termination occurred the mass storage or 
core load indicator is saved before processing continues 
If termination was via a contrdl statement! the 
statement is moved to the statement input buffer and 
the mass storage or core indicator examined. A check 
is finally made before exiting back to the processor 
to unset the job kill switch if a data base operation 
is in progress. 



35. T. 3. 1.7 fIVCST 



If the loader operation performed by the LOAD subroutine 
terminated with a control statement this subroutine is 
entered to move the statement to the statement input 
buffer from where the next operation can be interpreted. 



C 
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3S-T.3-l.fl STm3t,A 



This routine is entered from the *M processor to 
insert the length and starting sector number of the 
core or mass storage resident program replaced in the 
system directory on the mass storage core image of the 
system. 



35.T.3o5 GROUP NO. 2 - INSREL 
3S-T.3oE.l INSERT 



Uhenever programs or files are addedn replacedn or 
removed from either the system or program directories 
it is essential that the sector availability table be 
updated to reflect current disk storage thus avoiding 
destruction of information- The INSERT routine is 
entered for this purpose. The sector number whose 
representative bit is to cleared or set is passed to 
the routine in the A register. Whether the sector 
bit is to be cleared or set is determined by the value 
passed in INPPAR. A zero passed signifies that the 
sectors bit is to be set as not available and a one 
causes the sector to become available for future use» 



3S.T--3-E.E UPDSET 



This subroutine is used in conjunction with the INSERT 
subroutine when blocks of sectors ar^ to be set or cleared 
in the Sector Availability Table. The routine is used 
by the "fin *Ri and "N processors. 



3S.T.3.E.3 IOBLE 



Uhen a program is to be replaced or removed from the 
program library i IOBLE is entered to read up the old 
program blocks to get the sector number of the next 
program block. This sector number is then used by the 
processor to clear the seotbr in the sector availability 
table. 
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35.T.3-E.M' ZAES 



This routine is used by the *L and mR processor to 
zero out all directory entries which have as a 
beginning sector number the same number as the 
starting address of the program being removed or 
replaced. 



BS-ToBoE-S ZER 



ZER is used by ZAES to perform the actual zeroing 
of the program library directory entry. 



35.^.3.3 GROUP NO. 3 - SENDC1 
35. T. 3. 3.1 SENDC 



The *T processor upon completion of its read and write v_J 

operation exits to this routine to convert the record 

count from hexidecimal to ASCII and to output a message 

to the standard print device specifying the number of 

records transferred. Only a four digit number can be 

output by the routine although there is no limit to the 

number transferable by the *T processor. 



35. T. 3. 3. 2 LUCHK 



When transfers are to be performed by the m T processor 
this routine checks the specified input and output 
device for their legality. Checks are made of the 
following features: 1> that the unit specified is not 
the core allocator -CL . U . *1> i E> that the device is 
a legal read or write devicei and 3> that the logical 
unit number does not exceed the number of units in the 
system as specified by location NUflLU in SYSBUF. 
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35.T.3oi4 GROUP NO. ^ - SACREL 

35. T. 3^.1 SAC 



This routine searches the program directory for a match 
to an entry point. If a match is found the sector number 
of directory block containing the entry point will be 
saved. The Q. register is returned to the processor with 
the index to the first word of the match entry in this 
sector and the A register is set to zero. If no match 
is found the A register is returned with a non-zero 
value. Entry at SAC is made when a program entry point 
is being checked to determine if a replace operation 
is to be made or when the legality of a remove operation 
is required. 



35. T. 3. 4.2 SACF 



Entry is made to this routine to execute SAC for file 
operations. This includes determination of file replace- 
ment and validity of file removals. 



35.T.3.5 GROUP NO. 5 - SERCH 
35.^.3,5.1 SEARCH 



The insertion of new programs! program libraryn or file 
blocks on mass storage will cause SEARCH to be 
entered. Program and program library blocks are chained 
together on mass storage. Thereforen SEARCH will locate 
the next available sectori zero out its bit in the Sector 
Availability Tablen and return to the calling routine 
with the sector number. 

Files unlike program or program library blocks must 
reside contiguously on mass storage. The Sector 
Availability Table is thereforen interrogated to find 
the first group of sectors available large enough to 
contain this file. When found return is made to the 
file processor with the beginning sector number for the 
file. These sectors will be set as occuppied by a call 
to the UPDSET {see section 35. T. 3. 2. 2* subroutine by the 
file processor. 
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35.T.3c5.E FELD 



\/ 



The addition of program or file 
program library may necessitate 
addition program directory sec to 
case FELD is entered to find the 
block such that the sect6r addre 
obtained by executing SEARCH can 
as the directory- If the new bl 
scratch area of the disk the $C1 
updated. Before exiting the new 
out - 



entry points to the 
the acquisition of an 
r . When this is the 

current last directory 
ss of the new block 

be stored for chaining 
ock obtained is in the 

scratch pointer is 

block is also zeroed 



3S.T.3.b 



GROUP NO. b - INPREL 



35.T.3.L..1 INPUT 



This routine reads from the input or comment device 
ASCII or Binary Format Records of Tb words or less for 
input to the file processor. Reading is terminated by 
an error return from the input driver or by the next 
control statement. If termination is via the control 
statement the statement is moved to the LIBEDT state- 
ment input buffer to be processed upon completion of the 
current request. The blocks of information are input 
to unprotected core. If unprotected is not large 
enough to contain all the input n unprotected is then 
moved to mass storage each time it is unable to hold 
more information. 

Upon completion of all input operations return to the 
file processor is made with the A register specifying 
the number of sectors of information read- If input 
was from mass storage the number of sectors of 
information in the file is obtained from the file 
header record thus negating the necessity of reading 
up all the information to obtain a sector count. 



35.1.3.7 



GROUP NO. 7 - MASUP 
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35.^.3.7.1 MASSUP 



Upon completion of processor tasks that add or remove 
information from mass storage •* or when a job kill occurs n 
it is essential that the beginning scratch sector get 
properly updated as not to cause destruction of 
information. NASSUP accomplishes this by reading up 
the system sector containing the scratch address i 
changing its value if necessary and then writing the 
system sector back to mass storage. 



3S.T.3.7oE SETC1 



This routine is used to set the word lengthn input 
buffer address n and sector number location address 
for read of a system^s sector from mass storage. 



3S.T.3.7 GROUP NO. fl - ESSREL 
35.^.3.7.1 ESS 



The insertion of new entry point names in the program 
library requires that a search of the directory be 
made to locate and utilize any empty entries in 
existing program library sectors. If an empty entry 
is found the (3 register points to the first available 
word in the entry and the A register is set to zero. If 
no entries are found the A register is returned with 
a non-zero value. When no entries are found subroutine 
FELD {See Section 35.^.3.5.2} must be executed to get a 
new library block before returning to EES. 



35.T.M AREAM SUBROUTINES 
35. T.M.I GROUP NO. 1 - HFRREL 
35.T.M.1.1 MFREAD 



This routine reads one sector from a mass storage unit 
The address of the sector number must be in the (3 
register and the address of the input buffer in the A 
register. (315 = 1 signifies a separate scratch unit. 
(315 = D signifies that the library and scratch units 
are the same. 
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35.^.4-1.2 MFURITE 



MFURITE writes N words on a mass storage device the 
address of the word containing the sector number must 
be in the (2 register and the address of the output 
buffer in the A register. The number of words to 
write is passed from storage location US- 



35-1.4-1.2 OPNEU 



When outputting program blocks OPNEU sets up the 
parameters for the mass storage write. 



35. T.M.I. 3 RSAT 



RSAT sets the input buffer and sector address location 
for reading a block of the sector availability table 
into core. 



35.1.4.1.4 USAT 



USAT sets the output buffer address and sector number 
location for writing a block of the sector availability 
table back to mass storage. 



35.1.4.1-5 SUR 



SUR sets the input/output and sector address locations 
for reading from and writing to the program library. 



35.1.4-l.h OINSE 



This routine inserts entry points in the program library 
directory one entry point at a time. This subroutine 
is used in conjunction with ESS {section 35.1.3»7.1} 
which locates empty entries and FELD {section 35o1.3.5.2} 
which obtains additional program library blocks if 
necessary. If an additional directory block is required 
this routine will write the SA.T, out to mass storage 
before exiting. 
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35. T^. S GROUP NO. 2 - PPKREL 
35.1.1*. a. 1 PPRK 



Each time a control statement field must be processed 
PPRK is entered. This routine will extract up to b 
characters and interpret them as follows: 

ID- If all characters are numeric -CD c ]>t they are 

assumed to be decimal and converted hexidecimal. 
On return from PPRK the following will be set: 

a> A = 1, 

b> Q. = number of digits 

c> XXK = converted number 

2> If any character is alphabetic all characters are 
assumed to form a name. On return from PPRK the 
following will be set: 

a} A = 

b> Q. = number of characters 

c> XXK-, XXK+1-, XXK+E = packed characters 



35.1. M. a. a ZRfiOUT 



This routine is used by PLINSN and FILE to move the 
entry point name input from the XXK buffer to the 
BUFF1A input buffer thereby allowing the de- 
parameterizing of the remaining portion of the control 
statement. 



35.1.4.3 GROUP NO- 3 - RINREL 
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35. T^. 3 READIN 



READIN reads records from the input or comment device 
for the *L and *N processors. The input buffer address 
must be passed in the A register and the read length 
in US- If mass storage is being used the scratch 
sector address must also be passed in PDSN and NORD. 
The (3 register upon entry will pass a first time 
flag to avoid having to set up the I/O information on 
each entry when the subroutine is being used by 
the file processor the read mode is checked and stored 
in the request. 



35. =1.14.14 GROUP NO. ^ - KURIT 
35. T. M.H.I KURITE 



This routine writes two words on the standard output 
comment medium. The two words to write immediate 
follow the return jump used to exit to the subroutine 
The primary calls to the routine are to output error 
messages and the IN messages. 



35.1.M.M.E QURITE 



OURITE functions through KURITE and differs only in that 
the output device is set to the standard print device. 
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USAT 71 AS 
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PPRK 73 Al 

ZRflOUT 75 AE 
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3b. D RECOVERY PROGRAM 

3b. 1 PROGRAM FUNCTION 

By using the recovery program, the programmer may determine the 
state of core and mass storage at the end of job execution. It is 
operated under the direction of the job processor. Whenever the 
job processor detects an *SR statement prior to job execution, it 
sets the recovery indicator switch. The recovery program is operated 
at job termination when the switch is set. 

3'b.2 RECOVR ROUTINE 

3^.2.1 Internal Description 

Upon entering the recovery program, the comment "RE" is typed on 
the comment medium. The operator is then free to direct the opera- 
tion of the recovery program by entering control statements. 

All control statements must be entered from the comment medium. The 
output device may be selected. Control statements to the recovery 
program consist of statements in format records. The information is 
placed in a buffer internal to recovery program and is recorded in 
the internal code of the computer (ASCII). 

The first character of a control statement must be an (*), and the 
last character must be a carriage return. The intervening characters 
of the statement identify the type of statement and consequently, 
the prescribed action desired. 

Internal to the recovery program is a list of acceptable control 
statements. A control statement read by the recovery program must 
match some entry in this list. With each entry in this list there is 
associated an address to which the recovery program will transfer 
in order to carry out the operation directed by a control statement. 
The standard list of input statements for the recovery program consists 
of the following: 

INPUT STATEMENT ; TRANSFER ADDRESS TO BEGIN ACTION 

*Dhhhh, HHHH DMPCOR 

*MS1, W1,S2, W2, N MASDMP 

*T TERMIN 

*Unit Number OUTSEL 

Unacceptable control statements are indicated by a printout (ERR) 
and the recovery program waits for another control statement. 

A function module is entered via a jump from the control module. 
Return to the control module is via a jump to "REC" in the function 
module. 
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The following subroutines are contained in the "RECOVR" module. 

1. WR WRITE Routine 

Upon entrance, Q contains number of words to write. The 
MARK contains location of buffer. Program returns to next 
location following buffer. 

2. SIFT This routine translates input messages into an array. 
Parameter checking is made on the following: 

a. No more than 4 characters between commas allowed 

b. No more than 5 words inputed. 

c. Only Hex characters read. 

3. BIASCI Binary to ASCII code conversion 

Upon entrance, A contains Binary number, exits with ASCII 
code in A and Q registers. 

4. SP Stores Spaces ($2020) in IBUF (Working output buffer) 

5. GET Gets one character from "IBUF" 

The I register contains character number, and upon return 
A and Q register contain character right adjusted. 

6. TERMIN Terminates control of the Recovery program. The 
location specified in $EE is scheduled at level zero. The 
recovery module is released and control is returned to the 
Dispatcher. 

3°.2.2 Additional Statements 

In order to process control statements, in addition to those normally 
included in the list, the following must be done: 

1. Add the external name of user's program to process statement 
to "EXT" list. 

2. Add four words defined in coding (see coding of RECOVR) 

3°. 2.3 Entry Interfaces 

RECOVR - Entry from "JOBENT" Module 

REC - Entered from "RCOVER" Module s, Starts processing procedures 

for next input statement. 
ERR - Error statement entry. Type out error message "ERR". 
TERMIN - Terminate Recovery routine. 
GET - Gets character from "IBUF". 
SIFT - Entry to routine that places input information into an 

array. 
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SP - set spaces in IBUF 

BIASCI - Binary to ASCII code conversion 

3 b .E.M External Symbols 

FILE5 - Contains absolute location of *RC0VER* 

routine. 
SWITCH - Set to +1 when *Z read by manual ' cv'.er- 

rupt routine. 



3b- 5. 5 Internal Symbols 



LUND - Logical Unit number of output device. 
ABIBUF - Absolute location of IBUF. 
IBUF - Tb word input and output buffer. 
BUF - 5 word hex array of input datai set by 

SIFT routine. 

3b. 3 OUTSEL MODULE 

3b. 3-1 Internal Description 

This module allows the operator the option of selecting '^ 
any device to be used as output medium by the recovery 
program. The unit number must be legal and the device 
must be capable of output. If no v * unit number 7 ! state- 
ment is madei the standard output unit for print infor- 
mation will be used. If an error is detectedn control 
is returned to ERR in the RECOVR modulen which prints 
out 7 ERR V and asks for the next statement. 

3b. 3-2 Entry Interfaces 

OUTSEL - Entry to module 
3b. 3. 3 External Symbols 

L0G1A - Logical Unit Table 

3b. M DUMP CORE ROUTINE 

3b. M.l Internal Description 

The control statement wDhhhhH HHHH instructs the recovery 
program to dump the contents of core beginning at hexa- 
decimal address hhhh and terminating at hexadecimal 
address HHHH. If the terminating address is less than ^^ 
the starting addressn no data will be printed. If the ii 
stop address is not givenn only one word will be printed. 
Ten words will be printed on a line together with the 
starting address of the first word on the line- If the 
output device is magnetic tape or a pr intern lb words 
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will be printed on a line. If the last word of a line 
is equal to each word of the next linen only an asterisk 
will be printed and no further data will be printed 
until a variation is detected. The printout uses 
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only hexadecimal digits. Upon completion of the dump, exit will be 
made to the control module. 

"DMPCOR" routine is so set up that the mass storage dump program will 
use the "DUMPC" portion of "DMPCOR" routine. The following core 
locations will be switches used by both routines: COREL, WLOC, STOP, 
COMPE, ASKWR, B. 



3b. 4.2 Entry Interfaces 



DMPCOR - Entry to module 

DUMPC - Dump core routine 

PRINT - Prints one line of information 



3b. 4. 3 Internal Symbols 



START - First location to dump. 

STOP - Last location to dump or last word. 

WLOC - Current word location dumping or word number, 

COMPE - Word compare check flag. 

ASKWR - Line compare check flag. 

WORDC - Word count 

LWGRD - Last word 

COREL - Location of current word dumping 

B - Absolute location of IBUF 



3 b- 5 MASS STORAGE DUMP 
3^.5.1 Internal Description 



The Control Statement *M SI, Wl, S2, U2, N instructs the recovery 
program to dump mass storage scratch area. Mass storage is dumped 
beginning with word Wl in sector SI and terminating with Word W2 in 
sector S2. The following rules apply for values assigned to SI, Wl, 
W2 and S2. 

1. If Wl is omitted, the first word to be dumped is the first 
word of the first sector to be dumped. 

2. If S2 is omitted, it is assumed that S2 has the same value 
as SI. 

3. If W2 is omitted, the last word to be dumped is the last 
word in sector S2. 

Therefore - 

1. A single sector will be dumped if only a value of SI is 
specified. 

2. No information will be dumped if SI is greater than S2. 



v 



CA138-1 



MAR 5 1971 

CONTROL DATA CORPORATION ° DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IMS pAG 3L./5 

PRODUCT NAMF 1700 OPERATING SYSTEM 4B711 ^ ~ 

(2) PRODUCT NO. E006 vfrsion ■ J.O machinf <;fpif<; 1700 



o 



3. No information will be dumped if SI equals S2 and Wl is 
greater than W2. 

If N does not appear, the library unit is assumed. If N appears, 
it must be the logical unit number oj.' some mass storage device. 

The starting scratch sector specified will be read into core. The 
communication flags will be set and the buffer dumped by DUMPC in 
"DMPCOR" routine. 

The first line printed will defined sector number followed by dump 
of sector in hex. If the contents of the last word of a line equals 
the contents of each word in the following line, only an asterisk will 
be printed. No further printout, except for sector number will be 
printed until a variation is detected. Upon completion of the print- 
out, exit will be made to the control module. 



3°. 4. 2 Entry Interfaces 



MASDMP- Entry to module 

SECNO - Sequence number printout routine 

GETFIL- Get mass storage sector to be output. 



3b. 4.3 Internal Symbols 



51 - Starting Sector No. 

Wl - First word of starting sector 

W2 - Last word of last sector 

52 - Last sector 

N - Logical Unit Number 

LCSWT - Switch set ^ =£ absolute sector number wanted, 

MBUF - 96 word buffer 
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BREAKPOINT PROGRAM 



37.D PROGRAM FUNCTION 



o 



The breakpoint program enables the operation of a job to be 
controlled from the COMMENT medium. A breakpoint is set initially 
to a core address in the command sequence of a program and the pro- 
gram is interrupted prior to execution of the instruction stored 
at the breakpoint location. 

The breakpoint program is placed in the system library on mass 
storage by the system initializer. A *B statement instructs the 
Job Processor to turn on the breakpoint load switch. If this 
switch is on when an execute statement (*X) is detected, the 
Job Processor places the breakpoint program after the job in 
unprotected* core. 

Before executing the job, the breakpoint program is entered. The 
entry point to the breakpoint program i <=■ stored in $F3, (unpro- 
tected core location). A printout, BP, on the comment device 
indicates entrance to the program. The operator can then direct 
the operation of the breakpoint program bv entering input state- 
ments through the comment device. 

When the job attempts to execute an instruction at an address to 
which a breakpoint has been set, the breakpoint program is entered 
with an indirect return jump through $F3. BP, location of break- 
point, is printed on the comment device. 



37 2 BRKPTD ROUTINE 

3^.2.1 Internal Description 



'•BRKPTD'* is entered from fob Processor C TPT13) module with the Q 
register containing the job entry location. $F3 is changed to the 
address of BRKP and control is passed to the READY internal entry 
point, which prints out BP. Upon entrance through BRKP the A, Q 
and I registers are saved. BF , (location where breakpoint set) 
is printed out. The breakpoint statement is then requested on the 
comment medium. Upon completion of the inputed statement, the first 
word is compared with a list of expected values. If none compare, 
a B01, statement is printed. If a match is obtained, the input 
statement is broken down into an array (BUF1). Upon jumping to 
the requested processor, the A register contains number of words 
in BUF1 and the Q register contains the absolute location of BUF1. 
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37.2.2 



The B01 entry causes the error message B01 statement to be printed 
out on the comment medium. Upon completion another breakpoint state- 
ment is requested. 

Control Statements 



The standard list of control statements for the breakpoint program 
are: 



INPUT STATEMENT 



COMPARE WORD 



TRANSFER ADDRESS 



37.2.3 



37.2.4 



37.2.4 



*Ahhhh @ 




*A 


ENTERA 


*C © 




*c 


RESUME 


*Dhhhh,HHHH@ 




*D 


DMPCOR 


*Ehhhh,hhhh,... © 




*E 


ENTCOR 


*Ihhhh © 




*I 


ENTER I 


*Jhhhh @ 




*J 


JUMPTO 


*M,Sl,WlrS2rU5rN ^P) 


*M 


MASDMP 


*p ©> 




*p 


PRTREG 


*Qhhhh <SS> 




*Q 


ENTERQ 


*Rhhhh &> 




*R 


RETJMP 


*Shhhh,hhhh,... <££ 




*S 


SETRRP 


*T,hhhh,hhhh,... © 




•k'Y 


TERMIN 



The transfer addresses are declared as external names in the control 
module of the breakpoint program and as entry point names in the 
function modules. Each function is entered via a jump from the 
control module (BRKPTD). The return to the control module is via a 
jump to the entry point (READY) in the function module. 

Illegal Input Statement 

The breakpoint program will reject any control statement read for 
which there is no entry in its own list of control statements. 
Unacceptable control statements will be indicated via the comment 
B01, statement. The breakpoint program will then wait for another 
control statement. 

Additional Statements 

To add or subtract function modules, the first two characters of the 
input statement must be added or deleted from the BPTAB table. The 
proper transfer address must be added or deleted as an external, 
and added or deleted from the transfer table BPREL. 



Entry Interfaces 

BRKPTD 

BRKP 

READY 

B01 

BUF 

REG 



Entry from Job Processor (JPT13) module 
Entry from Job Address set in $F3 
Entry to process next Breakpoint instruction 
Entry to B01, statement error message processor 
A 40 word temporary buffer used for input and output 
First word address where the A, Q, I and M registers 
upon entrance are stored 
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37.2.5 External Symbols 



o 



RBKP05 - SIFT Places input statements into array 
BRKP07 - BIASGI Binary to ASCII conversion 
BRKP10 - BPL Table of breakpoint locations 

(BPL - 1) contains location of breakpoint currently 

processing. 
BRKP11 - INST Table of breakpoint instructions 

(INST - 1) contains instruction at breakpoint, 

currently processing 
BRKP12 - BPCOUNT Number of breakpoints set 



37. 2. (S Internal Symbols 



USERP Address of user's entry. If set to address first 

time to breakpoint 
L0C Location of breakpoint 

LASTAB Must be last card for ''BPTAB' table 



37.3 STFT ROUTINE 

37.3.1 Internal Description 



This routine transfers the ASCII input buffer to a hexadecimal array. 
Upon entrance the array BUF1 is set to zero, flags are set and the 
input is scanned to find either a $FF or a comma ($2C). The pre- 
ceeding characters are formed into a word with the following checks 
made. 

1. Hex ASCII character only. 

2. No more than 4 characters read. 

The Hex characters in BUF are transferred to binary and stored con- 
secutively in the BUF1. Upon reading a $FF, the last word is formed, 
the A register is set to the number of words in BUF1 and the Q 
register contains the absolute location of BUF1. 

If more than 15 words read or one of the above errors detected, a 
jump to B01 error message is made. 



-".3.2 Entry Interfaces 



SIFT Program entry 

GET Gets one character from BUF 



3? . 3.3 External Symbols 



BRKP03 - BUF The buffer which contains Input statement, 
BRKP04 - B01 Error mtb^age B01 routine. 
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37.3.4 



37.4 
37.4.1 



37.4.2 



37.4.3 

37.5 
37.5.1 



Internal Symbols 

COUNT 
WCOUNT 
TEMP 
BUF1 



BIASCI ROUTINE 



Character counter 
Word counter 

Temporary storage of HEX number 
40 word hexadecimal buffer of input data, also 
used as output buffer 



Internal Description 

This routine takes the binary number in the A register and transfers 
it to an ASCII character which are stored in A and Q registers upon 
return. 

The SP routine stores $2020 in 40 word BUF1. The PROTEC routine 
checks the location specified in the A register to see if it is in 
unprotected core; if so, control is returned to call routine with A 
and Q registers set to entry condition. If an error is detected, 
the error message B02,hhhh is printed on the comment medium, where 
hhhh is the location in protected core. Control is returned to the 
calling program with the A register set to $FFFF. 



Entry Interfaces 

BIASCI 

SP 

PROTEC 

External Symbols 

BRKP06 - BUF1 

RETJMP ROUTINE 



Binary to ASCII code conversion 

Stores ASCII code for spaces in BUF1 

Checks if location in the A register is unprotected 



Input output buffer 



Internal Description 



The *Rhhhh statement instructs this module to return jump to location 
hhhh and begin execution at hexadecimal address hhhh+1. If the return 
jump is made to a closed loop, the breakpoint routine will be re- 
entered when an indirect jump is made to the address stored in 
location hhhh. 

The address hhhh is checked by PROTEC to see if unprotected. If the 
A register is negative upon returning, control is returned to READY. 
If not, the A, Q, I registers aire restored, and control is returned 
jumped to hhhh. 



CA 138-1 



o 



CONTROL DATA CORPORATION 

DOCUMENT CLASS I^S 

PRODUCT Namf 1700 OPERATING SYSTEM 
PRODUCT NO._ 



DEVELOPMENT DIV 



E006 



.VERSION. 



4B711 



MAR 5 1971 

SOFTWARE DOCUMFNT 

PAGE NO_ 37 '5 



.MACHINE SFRIFS 1700 



37.5.2 



37.5.3 



37.6 
37.6.1 



37 



.6.2 



37.6.3 



37.7 
37.7.1 



Entry Interfaces 

RETJMP 

External Symbols 

BRKP01 - READY 

BRKP02 - REG 

BRKP04 - B01 

BRKP09 - PROTEC 

JUMPTO ROUTINE 



Program entry 



Prints BP and Requests next statement 
Registers upon entrance stored here 
Error return 
Checks if contents in A unprotected 



Internal Description 

The *Jhhhh statement instructs this module to jump to location hhhh 
and begin execution at hexadecimal address hhhh. 

Upon entrance the input array BUF1 is checked for one value only. 
If not, a B01 error message is printed. 

The address hhhh is checked by PROTEC to see if unprotected. If the 
A register is negative upon returning, control is returned to READY. 
If not, the Q, A and I registers are restored, and control is jumped 
to hhhh. 



Entry Interfaces 

JUMPTO 

External Symbols 

BRKP01 - READY 

BRKP02 - REG 

BRKP04 - B01 

BRKP02 - PROTEC 

ENTER ROUTINE 



Program entry 



Prints BP and requests next statement 
Register upon entrance to breakpoint 
Error return 
Checks if contents in A unprotected 



Internal Description 

These instructions *Ahhhh, *Qhhhh, *Ihhhh instruct the enter program 
to place the hexadecimal value of hhhh in tne A, Q or I registers 
respectively. Upon entrance, the input buffer array BUF1 is checked 
for one term. If one not present, the error message B01 is called. 
Upon finding a value, it's stored in REG array for the appropriate 
register. 
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Entry Interfaces 



37.7.3 



37.fi 
37.fi.l 



37.fl.E 



37. fl. 3 



37*T 
37. ^.1 



ENTERS 
ENTERA 
ENTERI 



Enter in (3 register routine 
Enter in A register routine 
Enter in I register routine 



External Symbols 

BRKP01 - READY Prints BP and requests next statement 
BRKPD2 - REG Registers upon entrance to breakpoint 
BRKPOM - BD1 Error return 

ENTER CORE ROUTINE -CENTCOR} 

Internal Description 

The statement "EHHHHihhhh-. -•• hhhh @> instructs ENTCOR 
routine enters the consecutive hexadecimal constants! 
hhhhn into sequential memory locations of unprotected 
core beginning with HHHH. Consecutive constants must 
be separated by commas and a carriage return must follow 
the last constant. Consecutive commas indicate the 
contents of the location that would receive the missing 
constant are not to be disturbed. If a location is to 
be set to zeroi a zero must be indicated via a constant 
in the statement. A maximum of IS locations may be 
altered by a single *E statement. 

The array following the lb word array in BUFln contains 
5FFFF for each entry where two commas are not separated 
by a constant. 

Entry Interfaces 

ENTCOR Program entry 

External Symbols 

BRKPD1 - READY Prints BP and requests next statement 
BRKPOM - BQ1 Error return 

BRKPDT - PROTEC Checks if contents in A register unpro- 
tected 

REGISTER PRINTOUT -CPRTREG1 

Internal Description 

The contents of the An (3t It fl and P registers are 
printed with tags specifying each register, i.e. A=HHHHn 
(3=HHHH-, etc 
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Upon entrance the input buffer array BUF1 is checked 
for valuesn if any existn the error message BD1 is 
requested. If none existn the values in REG are trans- 
ferred to ASCII and stored in print buffer -CBUF1J. 
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BRKP01 - 


READY 


BRKP02 - 


REG 


BRKP04 - 


B01 


BRKP07 - 


BIASCI 


BRKP08 - 


SP 



Upon transferring all values to ASCII and storing them in BUF1, it 
is printed out. 

37.9.2 Entry Interfaces 

PRTREG Program entry 

37.9.3 External Symbols 

Prints BP and requests next statement 
Registers upon entrance to breakpoint 
Error return 

Binary to ASCII conversion routine 
Stores spaces characters in BUF1 

37.10 SET BREAKPOINT ROUTINE (SETBRP) 

37.10.1 Internal Description 

The control statement *Shhhh,hhhh, . . . @ instructs the SETBRP 
program to set a breakpoint switch at each of the hexadecimal addresses 
specified. Each heaxdecimal address, hhhh, must be a memory location 
in umprotected core. If an address in protected core is specified, 
it is rejected and an error message B02, illegal address, is printed 
on the comment device. The breakpoint program then processes the 
next address in the input block. 

Up to 15 hexadecimal addresses may appear in a control statement. 
The total number of breakpoints which may be set at any time is 
represented by the value in HOBP. The value of this parameter is 
fixed at the time the breakpoint program is assembled. It may be 
changed only by reassembly of the program. 

The SETBRP program will ignore a hexadecimal address hhhh in the 
input block of a breakpoint had previously been set at this address. 
No indication of this action will be given. 

Locations were breakpoints are set and stored in the BPL table. 
Instructions that were replaced by breakpoints are stored in INST 
table. The number of breakpoints set is defined by BPCOUT. If 
BPCOUT is greater than N0BP (number of breakpoints that can be set) 
the error message B03,hhhh is printed and the rest of the statement 
is ignored, hhhh is defined as the first location breakpoint will 
not be set. 

37.10.2 Entry Interfaces 

SETBRP Program entry 

BPL Table of breakpoint locations 

INST Table of instructions replaced by breakpoints 

BPCONT Number of breakpoints set 
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37.11 
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37.11.2 



37.H.3 



37.12 
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External Symbols 

BRKP01 - READY 

BRKP04 - B01 

BRKP07 - BIASCI 

BRKP09 - PROTEC 



Prints BP and requests next statement 
Error return 

Binary to ASCII conversion routine 
Checks if contents in A unprotected 



REMOVE BREAKPOINTS (TERMIN) 

Internal Description 

The statement *Thhhh,hhhh, . . . @ instructs TERMIN to remove the 
breakpoint from the hexadecimal address hhhh. If a breakpoint is not 
set at a given address, the TERMIN program processes the next address. 
If a *T statement is not accompanied by any hexadecimal addresses, 
all breakpoints previously set are removed. Up to 15 addresses are 
allowed in a single *T statement. 

To remove all breakpoints, location defined in BPL are stored with 
values in INST followed by setting BPCONT to zero. 

Upon removing specified breakpoints, BPL is set to $FFFF. Upon comple- 
tion of a *T statement, the BPL and INST tables are packed to delete 
removed breakpoints. BPCONT is changed to the number of breakpoints 
left. 

Fntry Interfaces 

TERMIN Program entry 

External Symbols 



^RKPOl - READY 
BRKP10 - BPL 
BRKP11 - INST 
BRKP12- BPCONT 



Prints BP and requests next statement 
Table of breakpoint locations 
Table of instructions replaced by breakpoints 
Number of breakpoints set 



DUMP CORE ROUTINE (DMPCOR) 

Internal Description 

The control statement *Dhhhh,HHHH instructs the DMPCOR program to 
dump the contents of core beginning a' hexadecimal address hhhh 
and terminating at hexadecimal address HHHH. If the terminating 
address is less than the starting address, no data will be printed. 
If the stop address is not given, only one word will be printed. 
Ten words will be printed on a line together with the starting address 
of the first word on the line. If the last word of a line is equal 
to each word of the next line, only an asterisk will be printed and 
no further data will be printed until a variation is detected. The 
printout uses only hexadecimal digits. Upon completion of the dump, 
exit will be made to the control module (READY). 
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37.12.2 



37.12.3 



37.12.4 



37.13 
37.13.1 



DMPCOR routine is so set up that the mass storage dump program will 
use the DUMPC portion of DMPCOR routine. The following core loca- 
tions will be switches used by both routines: COREL, WLOC, STOP, 
COMPE, ASKWR, B. 



Entry Interfaces 

DMPCOR 

DUMPC 

PRINT 

Internal Symbols 

START 

STOP 

WLOC 

COMPE 

ASKWR 

WORDC 

LWORD 

COREL 

B 

Ext erna 1 Symbo 1 s 



BRKP01 - 


READY 


BRKP04 - 


B01 . 


BRKP07 - 


BIASCI 


BRKP08 - 


SP 



Entry to module 

Dump core routine 

Prints one line of information 



First location to dump 

Last location to dump or last word 

Current word location dumping or word number 

Word compare check flag 

Line compare check flag 

Word count 

Last word 

Location of current word dumping 

Absolute location of BUF1 



Prints BP and requests next statement 
Error return 

Binary to ASCII conversion routine 
Store space character in BUF1 



MASS STORAGE DUMP 



Internal Description 

The control statement *M,S1 ,W1 , S2 JjJ 2,N instructs the MASDMP program 
to dump mass storage scratch area. Mass storage is dumped beginning 
with word Wl in sector SI and terminating with word W2 in sector 
S2. The following rules apply for values assigned to SI, Wl, W2 
and S2. 

1. A single sector will be dumped if only a value of SI is 
specified. 

2. No information will be dumped if SI is greater than S2. 

3. No information will be dumped if SI equals S2 and Wl is 
greater than W2. 

If N does not appear, the library unit is assumed. If N appears, 
it must be the logical unit number of some mass storage device. 
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The starting scratch sector specified will be read into core. The 
communication flags will be set and the buffer dumped by DUMPC in 
DMPCOR routine. 



37.13.2 



The first line printed will be defined sector number followed by dump 
of sector in hex. If the contents of the last word of a line equals 
the contents of each word in the following line, only an asterisk will 
be printed. No further printout, except for sector number will be 
printed until a variation is detected. Upon completion of the print- 
out, exit will be made to the control module. 

Entry Interfaces 



37.13.3 



MASDMP 

SECNO 

GETFIL 

Internal Symbols 



Entry to module 

Sequence number printout routine 

Get mass storage sectors to be output 



37.13.4 



37.14 
37.14.1 



o 



si 
wi 

W2 
S2 
N 
MBUF 

External Symbols 



BRKP01 - 


READY 


BRKP04 - 


B01 


BRKP07 - 


BIASCI 


BRKP08 - 


SP 


BRKP20 - 


DUMPC 


BRKP21 - 


COREL 


BRKP22 - 


WLOC 


BRKP23 - 


STOP 


BRKP24 - 


COMPE 


BRKP25 - 


ASKWR 


BRKP26 - 


B 



RESUME MODULE 



Starting Sector Number 
First word of last sector 
Last word of last sector 
Last sector 
Logical unit number 
96 word buffer 



Print BP and request next statement 

Error return 

Binary to ASCII conversion routine 

Store space character in BUF1 

Dump core routine 

Location of current word dumping 

Current word location dumping or word number 

Last location to dump or last word 

Word compare check flag 

Line compare check flag 

Absolute location of BUF1 



Internal Description 

This statement *C instructs RESUME to exit the breakpoint routine 
and to resume execution of the job. If the breakpoint program had 
been initially entered from the Job Processor (JPT13) immediately 
after having been loaded, the breakpoint program will put the job 
into execution by transferring control to the address passed to the 
breakpoint program in Q. 
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If the breakpoint program had been entered from the job, the instruc- 
tion stored at the address of the last breakpoint will be executed. 

The location and instruction will be stored in the location preceding 
BPL and INST tables. Upon entrance to breakpoint, the instruction 
to be interpreted will be broken down into 5 groups. 

1. Skip type instruction 

2. Register type instruction 

3. Indirect relative mode 

4. Absolute and indirect absolute 

5. Direct relative 

The last three groups of instructions will be translated into an 
indirect absolute instruction before executing this new instruction. 
It is checked for being a return jump; if so, it is interpreted as 
a return jump instruction. 

The A, Q and I registers are returned, and the generated instruction 
is executed and control is returned to the job. 



Entry Interfaces 

RESUME 

External Symbols 



BRKP02 - 


REG 


BRKP04 - 


B01 


BRKP10 - 


BPL 


B'RKPll - 


INST 


BRKP12 - 


BPCONT 



Internal Symbols 

LOC 

LOCI 

LOC 2 

INSTR 

INSTN 

MODE 

DELT 

REG A 

REGQ 

REG I 



Program entry 



Register upon entrance to breakpoint 

Error routine 

Table of breakpoint locations 

Table of instructions replaced by breakpoint 

Number of breakpoints set 



Location of instruction 

1st word location following instruction 

2nd word location following instruction 

Instruction 

First 4 bits of instruction 

Mode of operation 

Delta field 

A register saved 

Q register saved 

I register saved 
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3fl,D ON-LINE DEBUG PACKAGE 

The On-Line Debug Package -C0DP3- is a mass storage resident program 
with the entry name ODEGBUG in the System Directory- It is 
initiated with a manual interrupt- The manual interrupt 
program schedules the Manual Input for Process {MIPRO} 
program which in turn schedules the on-line debug program. 

ODP is assembled as one program and loaded onto mass memory 
by the Initializer- When the program is scheduled by NIPROr 
its length in the System Directory entry is changed to the 
actual amount of core used. 

The program consists of executive routinesr processors r and 
subroutines. The executive routines are core resident as 

long as ODP is active {Area 1>. The processors are dynamic 
and in core only when the request associated with processor 

is being processed {Area E>. The subroutines are also 
dynamic and in core only at the request of the processor 
requiring it {Area 3>- 

Figure 1 and 2 show the lay out of the program on mass 
memory and the program in allocatable core respectively. 
All communications to the executive routines by the processors 
and subroutines must have a relative corrective increment 
added because the relative position in core is not the same 
position on mass memory. 
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Figure E 
Allocatable Core Layout 



Figure 1 
Mass Memory Layout 



3 ° • 1 Executive Routines -{Area 1> 

The following functions -Cwith entry names) are executed by 

the executive routine when called by the processors or 

subrout ines- 

1- Initial i ze -C0DP} 

Initial i ze program by setting in-process flagr obtaining 
the standard output comment logical unit and pri.nt.ing 
DEBUG IN comment. 
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2. Another Request -CL0KM0R3- 

Background input buffer and request input from input 
comment device. Transfer Get Request Processor to 
area 2. 

3. Transfer Processor to Area 2 -tBRIPRI* 

Read processor from mass memory and go to processor - 
M. Transfer Subroutine to Area 3 {HANDLE> 

If subroutine not already in Area 3i transfer subroutine 

to Area 3 and go to it. 
5. Recoverable 1/0 Errors -CI0ERRI 

Print message and check for 0DP not-active. If activer 

go request more, 
b. Irrecoverable 1/0 Errors -CERR0R> 

Reset 0DP in-progress flag and release cone. 
7. Return from Processors -CS0MM0R} 

Check for 0DP not-active. If activer go request more. 
A. Request More -CS0MEJ 

Print NEXT? comment and go to get another request. 
T. Common Subroutine to Calculator Mass Memory 

Address of Processors and Subroutines -tMMADDR}. The 

location of the program on mass memory is obtained from 

the system directory entry for 0DEBUG. This location 

plus the relative address of the processor or subroutine 

results in the mass memory address- 



3°. 2.0 Processors {Area 2> 

The following processors with the exception of the Get 
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Request Processor are brought over Into Area 2 by the Get 
Request Processor. The transfer is always done even though 
the processor may already be in Area 2- The Get Request 
Processor is brought over by the executive program- 

3 fl .2-l Get Request Processor -CGETREC?} 

This processor is used to bring into area B the processor 
corresponding to the request desired. 

A three character field is obtained. A check for a valid 
field terminator is made. {Valid terminators are zeror 
commar and $FF>. A format incorrect message is initiated 
if the terminator is not valid. Otherwiser a search is 
done for the mnemonic If the mnemonic is not foundr an 
illegal request message is initiated. Otherwiser the index 
is used to obtain the relative address of the processor. 
The mass memory address is calculated and the transfer 
initiated by jumping to BRIPR1 in the executive routine- 
If it is the OFF mnemonicr control is transferred to the 
off logic in the executive routines and no processor is 
i n i t iated. 

Bfi.E.B Load Hexadecimal Processor -CLHXREtn 

This processor loads hexadecimal values into core. Fields 
are obtained and their values summed until a slash field 
terminator is obtained. The sum is the starting core 
location at which the load is to begin. The asterisk field 
terminator is illegal if the slash field terminator has not 
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been encountered. Following the slashr fields are obtained 
and assumed to be data which is stored into core. An 
asterisk field terminator causes the preceding field to be 
saved as an op code- The following field is then calculated 
as a relative address- If the op code is not zenor an 
eight bit relative address is obtained and combined with 
the opcode to form a one word relative instruction. More 
than one slash field terminator will result in a format 
incorrect message. 

3 fl .2.3 Dump Core Processor -CDPCREtn 
C A This processor dumps the specified contents of core in hexa- 

decimal- Three fields are obtained. A check for valid 
field terminator is made and a format incorrect message 
initiated if not valid. The fields are converted to 
hexadecimal. A check for non-negative addresses is made. 
Negative addresses result in a format incorrect message. 
If the starting address is greater than the last addressr 
the first and last are set equal- As many calls as are 
required are made to the Print Line subroutine dump one 
line {fl cells! in the comment output device. 

jfl.2.3-1 Search Core Processor -CSCNREfl} 

This processor searches core for a particular bit configura- 
-^ t i on as defined by number and mask field- Core is searched 

in increments as specified. An index is set to get five 
four character fields. Each field is checked for a valid 
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field terminator and converted to hexadecimal- An invalid 
field terminator results in a format incorrect message. 
Each field is checked for being blank. Blank fields are 
replaced with their substitute. Only the mask and increment 
have substitutes with meaningr the others are set to zero- 
After all fields have been obtainedr the search is begun- 

If the desired configuration is obtainedr a heading is 

printed oncer followed by the location and contents. When 

the search is completer a search finished message is initiated. 

3^ - E . 3 . a Set Core Processor -tSETREC?} 

This processor fills the specified core with the specified v - 

value. An index is set to get three fields- Each field is 

checked for a valid field terminator and converted to 

hexadecimal. An invalid field terminator results in a 

format incorrect message. The core locations specified 

are checked for being non-negative. The pattern is then 

stored into core. 

3fi - 5 - 3 . 3 Hove Block of Core Processor -Cf1BCRE(3> 

This processor moves a block of core to another location 

in core. An index is set to get three fields. Each field 

is checked for a valid field terminator and converted to 

hexadecimal. A non-negative check is made on each core 

location specified. A check is made to determine if a (^ 

backwards move is required. If sor the move is made 

starting with the last location rather than the first. 
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3S.E.M Scheduler Request Processor -CSCHREfl} 

This processor creates a scheduler request and makes a 
call to the monitor for its execution. An index is set to 
get three four character fields. Each field is checked for 
a valid field terminator and converted to hexadecimal. The 
scheduler call is constructed and a call made to the Monitor 
for its execution. Note that for the request priority 
field only the last digit is used even though more may be 
entered. 

3fi-2.S Search Core for Parity Error Processor -CSPEREC?} 
f'~") This processor searches core for a parity error condition. 

One field is obtained and converted to hexadecimal. A valid 
field terminator check is made. A blank field will be 
replaced by S7FFF -Lend of core with full compliment of 
memory! . A negative address check is also made. Interrupts 
are inhibited during each parity error check. Thus no 
systems parity errors are obtained. The location of each 
parity error is printed. 

3 fi -2.b Clear Protect Bit Processor -CCPPREC?} 

This processor clears the protect bit for the cells specified 
An index is set to get two fields. Each field is checked 
for valid field terminator and converted to hexadecimal. 
The core addresses are checked for being non-negative- The 
specified protect bits are cleared. 



O 
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3 fi -E.b.l Set Protect Bit Processor -ESPPREfl} 

This processor is identical to clear Protect Bit Processor 
except that the bit is set. 

3 fl -2.7 Add Hexadecimal Processor -CADHREflJ 

This processor adds a maximum of A hexadecimal numbers- An 
index is set to get A fields. Each field is checked for a 
valid control character and converted to hexadecimal. It 
is then added into the accumulation. The result is printed. 

3 fi .2-A Subtract Hexadecimal Processor -CSBHREc?> 

This processor subtracts two hexadecimal numbers. 

An index is set to get two fields. Each field is checked 
for a valid control character and converted to hexadecimal. 
The two results are subtractedr first field minus second 
fieldr and the result printed. 

3^.2. 1 Generate Scratch Area Processor {GENREc?} 

This processor allocates an area of allocatable core. An 
index is set to get two fields. Each field is checked for 
a valid control character and converted to hexadecimal. A 
validity check is made on the request priority {greater than 
two). The core request is constructed and a call to the 
Monitor to allocate core is made. If allocation is not 
possible, a NO CORE AVAILABLE comment is printed. If the 
core allocation was made r a comment indicating its first 
and last location is printed. 
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3 fl .E-lD Release Cone Processor -CRELREfli 

This processor releases core starting at the location 
specified. One field is obtained and converted to hexadecima 
The result is checked for being non-negative and stored in 
the release request. A call is then made to the Monitor to 
release core. 

36-5-11 Dump A 1 locatable Core Hap Processor -CDACRE<3 3- 

This processor dumps a map of al locatable core. A v snap 
shot* 7 of al locatable core is made with interrupts inhibited. 
The time that interrupts are locked-out will depend on the 
amount of core allocated but will normally exceed the SD 
v~ ^ microsecond limit placed on interrupt lock-out. The snap 

shot executes the following logic Each piece of al locatable 
core is checked for being empty or filled. If filledr the 
starting address and length are stored in a buffer- If 
emptyr an asterisk flag is stored in place of the length. 
When all of al locatable core has been checked or the buffer 
is f u 1 1 r the snap shot is complete. A message is then 
constructed to print out the map. The subroutine hex to 
ASCII is used to convert hex to ASCII and insert it in the 
message. A call to the Monitor is made to initiate the 
print out of the map. 

3 fl .E-12 Print Thread Processor -CPTHRE<3> 

This processor prints the location and the first two words 
of the first ten entries or less on a thread. An index is 
set to get two fields. Each field is checked for a valid 
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control character and converted to hexadecimal. The two 
fields are added to obtain. the location of the top of 
thread. Under interrupt lock-out a ^snap shot^ 7 of ten 
entries on less on the thread is taken by going down the 
thread and storing the location of the entry and the first 
two words in a buffer. A heading is printed and followed 
by a line at a t ime conta in ing the entry location and its 
first two words. A subroutine is used to add a carriage 
return to each liner store the length of the message into 
the request parametersr and call the Monitor- 

3 fl .E.13 Magnetic Tape Motion Processor {MTRRE(3> 

This processor handles all tape motion requests. The 
logical unit field is obtained and converted to hexadecimal. 
It is then checked for being assigned to a magnetic tape 
device. If the logical unit is not properly assignedr an 
illegal logical unit comment is initiated. The number of 
files irecords> field is obtained and converted to hexadecimal. 
It is checked for being a non-negative number. If this is 
an advance record request r special coding reads a 10 word 
record into core the number of times specified to accomplish 
the advance. 

Otherwiser a tape motion request is initiated for the 
desired motion. This request is repeated until the 
specified number of executions have been done. A subroutine 
is used to check for valid field terminator and convert 
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from ASCII decimal to hexadecimal. A table contains the 
motion control codes used in the request and is indexed by 
the position of the request mnemonic in its table in the 
Get Request Processor. 

3°. 3 Subroutines -CAnea 3> 

The following subroutines are brought over into Area 3 by 
the Processors as needed. If "the subroutine is already in 
Area 3 r the transfer is not done. 

3A-3.1 Print Subroutine {PRINT} 

This subroutine contains message skeletons used by the 
various processors. A table contains the relative starting 
location and length of the message skeleton thus allowing 
the skeletons to be of different lengths. 

3&.3-E Get Field Subroutine -CGETFLD> 

This subroutine finds the next field in the input buffer 
that is terminated by a comma r slashr asterisk or end-of- 
text character. It has the following characteristics: 
1- The number of characters desired is in the C?-register 
on entry. For hexr this is four or lessr for decimal 
this is five plus sign or less. 

2. If the field contains more than the desired number of 
characters r only the desired number preceding the 
control character will be used. 

3. If the field contains less than the desired number of 
charactersr only the actual number of characters will 
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be used. 

•4. If the field is not present -Ci.e-r short form of a 
request may be usedD-r blanks will be returned to the 
caller. The control character will be set to zero. 

5- If a slash control character has been encounteredr 
blanks are returned until the condition is reset by 
the caller. -CThis permits fields to be not present 
preceding a slash}. 

t> . The control character is placed in the cell labeled 

FIELD in Area 1- For a hexadecimal numberr characters 
are placed in FIELD + Er3. For a decimal numberr the 
characters are placed in FIELD +lrEr3. 

3G.3.3 ASCII to Hexadecimal Conversion Subroutine -CASCHEX} 

Converts the ASCII characters in FIELD + Er3 to hexadecimal- 
Non-hexadecimal characters cause the accumulation to be 
c 1 eared. 

3 fi ,3.M Print Line Subroutine -CDFIPBUF} 

This subroutine prints one line on the comment output device 
containing the location and contents of eight cells or less. 
On entry the C?-register contains the number of cells to be 
printed. A negative (3-register indicates that only the 
location is to be printed. Two forms of the call permit 
the location of the cells to be the actual core location or 
a specified location. In the latter caser a relative 
address defines the actual location. Before the call to 
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the rionitor is mader a check is made of the in-progress 
flag- If offr the package is turned off without printing 
the 1 ine. 

3A.3.5 ASCII Decimal to Hexadecimal Subroutine -CASCDEO 

This subroutine converts ASCII characters in locations 
FIELD +1-Er3 to hexadecimal via a decimal conversion. The 
result is return to the A-register. Legal characters are 
+ r -r0- c l- Illegal characters and plus and minus clear out 
the accumulation. Values greater than E ^ will result 
in an error. 

3fl . 3 . b Hexadecimal to ASCII -CHEXASO 

Converts the hexadecimal number in the tf-register to two 
words of ASCII characters and stores them starting at the 
location specified by the relative address following the 
call- Return is made to second word following the call. 
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31 . RELOCATING LOADER 

The Loader is a non-resident sub- program of the 170 

Operating System. The Loader is capable of loading 
relocatable binary programs produced by the 1700 
Assembler. The design of the Loader is independent of 
the I/O configuration of the hardware for the system 
on which it operates- A single version of the Loader 
accepts input from any devicei whether buffered or un- 
buffered. One of these devices may be a mass storage 
device such as the Library Unit or the Scratch Unit. 

311 STORAGE OF THE LOADER 

The Loader is stored in" relocatable binary form on some 
external medium. The Loader is placed in the System 
Library as an absolute record during the System 
Initialization procedure. 

31.5 LOADING OF THE LOADER 

The Loader may be brought into core in one of two ways: 

1. Pre-job initialization by the Job Processor. 
2- A formal Loader Request within the user-'s 
program. 

The Loader is read as an absolute record from the System 
Library and placed in the upper most part of unprotected 
core. The Loader is accessed in the System Library 
through an entry in the System Library Directory. A 
word i n this entry contains the length of the Loader. 
The length of the Loader is subtracted from the 
address which is the upper limit of unprotected core. 
The resulting address is the 1st core location to be 
occupied by the Loader. 

The upper limit of unprotected core is contained in 
location $Fb. It is defined as the highest -[toward 
57FFF} unprotected address +1. ' p . | -»e lower limit of 
unprotected core is contained in location $F7. It is 
defined as the lowest {toward 0> unprotected address -1. 

Pre-job initialization by the Job Processor is performed 
whenever the Job Processor ^eads an *wP* input statement. 
Refer to Chapter Eb for further information concerning 
pre-job initialization. Refer to Chapter 11 for further 
information concerning Loader Requests. 

31.3 OPERATION OF THE LOADER 

A Loader operation is. initiated with a jump to the lowest 
{toward 0> core location occupied by the Loader. 
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3T«3-1 Types of Loader Operations 

The particular Loader operation to be performed is 
determined by the information passed to the Loader 
from the monitor via the A and Q. register as illus- 
trated: 

A reg: 

0. reg: 

The *T V field indicates the type of Loader operation 
to be performed. 

T Field Loader Operation 

D Relocatable Binary Load 

1 Subroutine Load . 

2 Program Load 

3 Memory Hap List 
M Entry Point Lookup 
S Subroutine Loading 

b Patch to Core Resident 

7 Set Data Base 

The V LU^ field contains the logical unit number of 
the input device to be used for this operation. This 
field is ignored if the Loader operation is Memory Map 
List. 

The TNA field contains the core address for storage of an 
entry point name. This information is significant only 
if the Loader operation is Program Load. The Q register 
is ignored in all other cases. 

3S3.1-1 Relocatable Binary Load Operation 

The purpose of this operation is to load relocatable 
binary programs from any peripheral device. The Loader 
call to load relocatable binary input requires that the 
T field is set to zero. The LU field contains a number 
which refers to an ordinal in the equipment table. If 
the left most bit of the LU field is onen the Loader 
will assume the input device is the standard input 
device. In this casei the Loader will address the standard 

O input device indirectly via the address SFT in the com- 

munication regionn which is the location containing the 
ordinal for this device in the equipment table. The Q. 
register is ignored for relocatable binary loading 
operations . 
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3^- 3-1-2 Relocatable Binary Load Operation for Load-and-Go Input 

The purpose of this operation is to load relocatable 

bi nar_y_progra ms_f r om_t he mass storage unit which contains 

the scratch area. The Loader call to bring in LOAD-AND- 
GO input requires that the T field is set to zero- The 
LU field is set to the number of the equipment table 
entry for the mass storage device containing the scratch 
area- The 0. register is ignored- 

For LOAD-AND-GO input! the Loader will address the mass 
storage device containing the scratch area indirectly 
via the address $B3 in the communication region. This is 
the location containing the ordinal for this input 
device in the equipment table- 

3^-3.1-3 Subroutine Load Operation 

This operation is performed subsequent to relocatable 

binary loading. As a part of the relocatable binary 

loading procedure t the Loader will attempt to match external 

names in the Loader Table with entry point names in 

the Program Library Directory. Unpatched externals are ,~^ 

those for which there are no corresponding entry poing (^ J 

names in the Program Library Directory. 

For every match that is made i the Loader will load the 
appropriate routine from the Program Library. If any 
unpatched externals are not matched by entry names in 
the Program Library! the names for these unpatched externals 
are printed on the comment medium- The operator must 
then type in * {carriage return} to resume operations! 
or mT {carriage return) to abandon the job- For 
subroutine loading! the T field is I and LU field is 
ignored. The input device is understood to be the mass 
storage device containing the Program Library. The Q. 
register is ignored in subroutine loading. 

The Loader will address the mass storage device containing 
the Program Library indirectly via the address 5C2 which 
contains the ordinal of this device for the equipment 
table. 

3^.3-1-M Program Load Operation 

This operation is used to load a program from the Library 
unit and enter it immediately for execution. 
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For program loadingr the T field is 2 and LU 
field is ignored. The input device is understood 
to be the mass storage device containing the program 
library- The 0. register contains the core address 
where the program name is stored in the internal 
core of the computer -CASCII3-- 

The input device is addressed by the Loader 
in the same manner as for a SUBROUTINE LOAD 
OPERATION. 

The program name is an entry point name of the 
program to be loadedr and it must appear in the 
Program Library directory. 



3^-3-1-5 Memory flap Operation 

The T field is 3 if the Loader is to produce a 
memory map. The LU field is ignored and the Q. 
register is ignored. This operation may take 
place subsequent to each subroutine load. This 
type of operation consists of the listing of 
the names in the entry point table together with 
their respective addresses. 

The first word addresses of common and data 
storage reservations appear in the map as entry 
point addresses. 

If common storage had been declared during a 
previous load operationr the name ^mmmCOH^ 
together with the common storage relocation base 
would appear ahead of the entry point table on 
the list output. If data storage had been 
declared during a previous operationr the name 
^mmmDAT^ 7 together with the data storage reloca- 
tion base would appear ahead of the entry point 
table on the I ist output. 



o 



3^3- 1 . b Entry Point Lookup 

The T field is M for the Loader to look up an 
entry point. The Q register specifies the 
location of the name as follows: 

Bit IS ^ 1: core location of ASCII name 

Bit D = D: name starts in left character 
of word 
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Bit D = _:■ name starts in right character 
of word 



The Loader tries to find the specified name 
in its symbol table. If the name appears/ the 
A register contains the core address of the name 
on exit- If the name is not present ', the Loader 
types on ED3 message on the output comment device 
and waits for input. 



3T-3-1-7 Subroutine Loading 

If T = 5 on input r the Loader does the same as 
if T were lr but no memory map is produced. 

3T-3.1.A Patch to Core Resident 

If T = _ on input r the Loader searches the core 
resident directory for entry points to match any 
undefined externals in its table. If any are 
foundr a dummy program is loaded which contains 
the absolute addresses of core resident entry 
points- 



This dummy program and its directory are written 
when the system is initialized. The directory is 
in the same format as the Program Library directory 
with all entry points pointing to the same program. 
This program consists of a dummy NAM blockr as 
many ENT blocks as necessary to accommodate all 
core resident entry points and a dummy XFR block. 



The Loader treats this as a normal program f loads 
it in and patches any entry points referenced 
by other programs. 



3^.3-1- T Set Data Base 

If T = 7 on inputr the Q register specifies the 
core location to which subsequent data blocks 
should be relocated- 
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3 C 1.3.E Allocation of Core for Programs Loaded by the Loader 

The limits of unprotected core are defined as 
f o 1 1 ows : 

1-- The location $Ft> a number equal to the 
address of the highest {toward 57FFF1 
unprotected location +1- 

E- The location $F7 contains a number equal 
to the address of the lowest unprotected 
1 ocat i on -1 . . 

The Loader occupies the upper part of this block 
of unprotected core- {Refer to item 2&-il.'} 
The lowest {toward D> core location to occupied 
by the Loader has the address equal to - 

-t^Ftj} - the length of the Loader. 

^„ This address will hereafter be referred to as the 

Q ) *base address of the Loader-* 

.3^3-E.l Loader Table 

The Loader Table generated by the Loader is 
situated immediately below the Loader in 
unprotected core- The Loader Table consists of 
entries of S words each in length- The first 
entry generated by the Loader is recorded at 
the five addresses immediately preceding the 
base address of the Loader. As additional entries 
are made to the Loader Tabler the table is 
expanded in size downward through memory to 
the lower limit o"F unprotected core. The 
address of the lowest {toward D> location 
occupied by the Loader Table will hereafter 
be referred to as the *base address of the 
Loader Table-* 
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3^3.2.2 Available Core 

That portion of the block of unprotected core not occupied by 
the Loader and the Loader Tables is core that is available 
for - storage"" of _ the — relocatable - binary input read and processed 
by the Loader. 

By definition the upper limit of available core is equal to 
the base address of the Loader Table. 

The lower limit of available core is by definition the address in 
the location $F7 which is also the lower limit of unprotected 
core. (Refer to item 28.3.2.11 for a definition of the lower 
limit of available core where there is a Data Storage block 
reservation.) 

Programs are loaded into core starting at the location whose 
address is ($F7)+1 and proceeding toward the upper limit of 
available core. 

3^3.2.3 Temporary Limits of Unprotected Core 

The locations $EC and $ED contain the temporary limits of un- 
protected core. At the time the Loader is brought into core by 
the monitor during pre-job initialization, the temporary limits 
of unprotected core are set to the limits of unprotected core: 

($F6) — > $EC where ($EC) = upper temporary limit of core 
($F7) — > $ED where ($ED) = lower temporary limit of core 

The temporary limits of unprotected core may be altered by issuing 
a core request in which the A register is set to the upper address 
and Q the lower. The Loader issues such a core request at the 
end of each Loader operation (except for Maps). The lower temp- 
orary limit is reset to the address of the highest (toward $7FFF) 
location occupied by the programs loaded during this loader opera- 
tion. 

The upper limit = ($EC) is always reset to the upper limit of un- 
protected core unless a common storage reservation had been made 
either during the current load operation or a previous one. (Refer 
to item 28.3.2.6.) 

3*33.2.4 Unprotected Core in the Communication Region 

In addition to the unprotected core block defined in item 28.3, 
there is a block of unprotected core in the communication region. 
The unprotected block begins at the location $C5 and terminates 
at $E4. 
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3^.3.2.5 



3^3.2.6 



In addition to the limits of available core defined by item 28.3.2.2 
the Loader regards the block of unprotected locations in the 
communications region starting at $C5 and terminating at $E3 
as available core. Although $E4 is unprotected, it is not included 
as part of available core since it contains information used by 
the Loader for a Load-and-Go operation. 

Diagram of Unprotected Core and Available Core 



LOADER 
Loader Table expands 
downward toward 

Unused avail core 

Programs loader durii 
load option 



location $E4^- 



available com regio 



^F 



-_±_ 



Block of protected core from 
$F6) to $7FFF 



'Block of unprotected core 
($F7)+1 to ($F6)-1 



f 



Block of protected core from 
>$E5 to ($F7) 

Block of unprotected core from 
IC5 to $E4 

Block of protected core from 
to $C4 



Allocation of Core for Common Storage Reservation 

Locations which are set aside for a Common Storage block reser- 
vation during a Loader Operation are situated at the top of un- 
protected core. Depending on the length of the reservation, it 
may overlay part or all of the Loader (and/or the Loader Table). 
The address of the lowest (toward 0) storage cell of this reser- 
vation is equal to 

($F6) - no. of location of Common Storage. 

The starting address of the Common Storage Reservation will here- 
after be referred to as the "relocation base for Common Storage". 
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Item 28.3.2.2 discusses Available Core and defines the limits 
thereof. When a Common Storage block reservation is set aside 
during a Loader Operation, this definition remains valid provided 
-the-fo Mowing— is-true: 



The address equal to the relocation base for Common Storage is 
numerically greater than or equal to the base address of the Loader 
Table. 



313.2.7 



The Loader will not load a program into core if it is to be stored 
in an area of memory which is set aside for Common Storage. There- 
fore, if the address equal to the relocation base of Common Storage 
is numerically less than the base address of the Loader Table, 
the following is true: 

The block of Available Core is truncated at its upper end such that 
the relocation base of Common Storage replaces the base address of 
the Loader Table as its upper limit. 

Item number 28.3.2.3 discusses the Temporary Limits of Unprotected 
Core and defines the limits thereof. The upper limit of unprotected 
core remains as the upper limit address in location $EC until a 
Common Storage block reservation is made. At this time the relo- 
cation base for Common Storage replaces the upper limit of unpro- 
tected core as the upper limit address in $EC. It remains constant 
during all subsequent Loader Operations. (The next time the monitor 
brings the Loader back into core these temporary limits will be 
reset to the permanent limits in locations $F6 and $F7.) 



Diagrams of Unprotected Core with a Common Storagfe Reservation 

Loader 



Common Storage 
Reservation 



Available Core 




oader Table ^^rurated during 
load operat ion 



Programs loaded during load 
peration 



In the example above the relocation base of Common Storage is 
numerically greater than the base address of the Loader Table. 
Therefore, the base address of the Loader Table is the upper limit 
of Available Core. 



Common Storage 
Reservation 



Available core 
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Loader 

Loader Table generated during 
load operation 



Programs loaded during load 
operation 
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In the above example the relocation base of Common Storage is 
numerically less than the base address of the Loader Table. 
Therefore, the relocation base of Common Storage is the upper 
limit of Available Core. 

3^3.2.8 Extension of Available Core 

When a program is being loaded into core, the first input record 
of relocatable binary format read by the Loader is the NAM block. 
From the information in the NAM block, the Loader determines the 
amount of Data Storage and Common Storage to be reserved, and, in 
addition, the amount of core necessary to load the program. This 
amount of core is reserved while the NAM block is being processed. 
During a Loader Operation, it is possible that the amount of core 
required for storage of the programs to be loaded exceeds the 
capacity of available core. If such is the case, the following 
occurs during the Loading Operation: 

The programs are loaded in the manner described in the 1st para- 
graph of this item. When the NAM block of "PROGRAMX" is read, it 
is determined that in order to reserve enough core in which to 
load "PROGRAMX" the capacity of Available Core will be exceeded. 
The contents of Available Core at this time consists of an absolute 
record of all those programs loaded during this operation prior 
to "PROGRAMX". The Loader will write this information onto the 
mass storage device containing the Scratch area. 

Following this "PROGRAMX 1 * and all those programs loaded subsequent 
to "PROGRAMX" will be loaded into the same block of available 
core. As the NAM block of each program is read, space is reserved 
in core for the program to be loaded. If while loading "PR0GRAMY", 
the capacity of Available Core should be exceeded a second time, this 
procedure is repeated. All those programs loaded prior to "PR0GRAMY" 
and starting with "PROGRAMX" are written as an absolute record onto 
the mass storage unit containing the Scratch area. This second 
record is written at the end of the 1st. 

The entire procedure repeats itself until the last program is 
loaded in. When the load of the last program is complete, whatever 
remains in Available core is written as absolute record onto the 
mass storage device containing the scratch area at the end of the 
information already written into this scratch area. The entire 
information in the scratch area is then read as an absolute record 
back into core starting at the lowest (toward 0) address in Avail- 
able core, 

($F7)+1. 
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This information consisting of alJL the programs loaded during the 
Loader Operation, when read into core will overlay that area of 
unprotected core occupied by the Loader Tables and/or the Loader. 

- That—ar.ea-of-core-occupied-by-the-Loader-Table-and-the-Loader-is 

considered to be an "Extension of Available Core" or more simply 
"Extended Core ". Concerning Loader Operations, the block of core 
referred to as Available Core may also at times be referred to as 
"Load Time Core ". Concerning execution of the programs loaded by 
the loader, that block of unprotected core from ($F7)+1 to ($F6)-1 
may also be referred to as "Execution Time Core ". 

During a Loader Operation, the Loader maintains 2 sets of address 
counters. One set is used to reference locations in Load Time Core 
and the other to reference locations in Execution Time Core. They 
are respectively referred to as the Load Time and the Execution Time 
address counters. 

If at some point during a Loading Operation, part of the Command 
Sequences of the program loaded is on mass storage and part is held 
in Load Time Core, the relocationship between the two sets of address 
counters is as follows: 

EXECUTION TIME ADDRESS COUNTER - LOAD TIME ADDRESS COUNTER = 
MASS STORAGE WORD COUNT. 

If throughout the entire Loading Operation, the entire Command 
Sequence of the program loaded is held within Load Time Core, 
the values for the two sets of address counters are equal. (If a 
Data Storage block reservation has been made during the Loader 
Operation the relationship between the two sets of address counters 
changes. Refer to item 28.3.2.13. 

The Loader will not load a program if the core it occupies at 
Execution Time extends beyond the upper limit of unprotected core. 
If a Common Storage block reservation has been made during the Loading 
Operation, the relocation base for Common Storage effectively 
becomes the "upper limit of Execution Time Core". 

The information to be recorded on mass storage is placed in the 
scratch area. The 1st sector in the scratch area is the beginning 
of this information unless the scratch area also contains Load-and- 
Go storage. In this case the location in the communication region 
$E4 contains the scratch sector number for the end of the load- 
and-go information. Then the starting sector number for the 
information placed in the scratch area by the Loader is equal to the 
1st sector number of the scratch area -•- ($E4). The locations 
$C0 and $C1. contain the starting sector number for the scratch area. 
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3^3.2.9 Diagrams of Unprotected Core Showing Extension of Available Core 



COMMON 
STORAGE 

EXTENDED CORE] 

LOAD TIME 
CORE 



/ 
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X 



PROGRAM I 



PROGRAM H 



PROGRAM G 



PROGRAM F 



PROGRAM E 



LOADER 



LOADER TABLE 



PROGRAMS IN 
\L0AD TIME 
CORE 







PROGRAM, 
"PROGRAM 


D_ 
C 


" "PROGRAM" 


'B 


"PROGRAM 


A 





Start of programs 
end of load-&-go 

Start of scratch 



CORE 



o 



MASS STORAGE UNIT W/SCRATCH AREA 



The above diagram illustrates allocations of unprotected core and 
mass storage unit scratch area during loading operation. 



COMMON 
STORAGE 



EXECUTION TIME 
CORE 



PR0GRAM_ I 
PROGRAM H 
PROGRAM G 
PROGRAM F 
PROGRAM E 

PROGRAM^ 
PROGRAM C" 
PROGRAM B 
PROGRAM A 



o 



The above illustration shows the programs in core following the Loading 
Operation. That area of occupied by the Loader Table is now overlaid 
by the last of programs by the Loader. 



3^.3.2.10 Odd Sectors 



When the Loader transfers information from Load Time Core to the 
Scratch area on mass storage (in the manner described in item 
28.3.2.8), the information is transferred in integer multiples 
of 96 words, or - the information is transferred in ''even sectors". 
(The word count per mass storage sector is 96.) If the number 
of words to be transferred from Load Time Core will hereafter 
be referred to as the "odd sector". 
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As an illustration, K is the number of words in Load Time Core 
such that 



K-=-N*-96-+-M- 



where N is an integer and 

1 ^ M< 95. 

When the information transfer occurs, the first N*96 words in 

Load Time Core are written in the scratch area on mass storage. 

The starting sector for this write operation is the one after 

the last sector containing information from this Load Time Core 

as a result of a previous write operation. If this is the 1st such 

mass storage write operation to occur as a result of loading a 

program, the starting sector is the 1st sector in the scratch 

area. (In the event there is Load-and-Go information in the scratch 

area, the starting sector is immediately after the last sector 

containing Load-and-Go information.) 

The last M words are moved from their storage positions to locations 
in the lower end of Load Time Core. The next program to be loaded 
is stored immediately above the area in Load Time Core containing 
the odd sector. The procedure occurs as follows: 

A. Unprotected Core Prior to Info XFER 

ILOADER 



ODD SECTOR (WORD ' 
COUNT = M) J 

EVEN SECTORS (WOREJ 
COUNT = N*96) 




LOADER TABLE 



,K WORDS OF COMMAND SEQUENCE FROM 
PROGRAMS BEING LOADED 



Scratch Area of Mass Storage prior to Info XFER 



COMMAND SEQUENCE 
/STORAGE FROM PREVIOUS M.S. 
WRITE OPTNS. 



LOAD-AND-GO INFO 



c 
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C. Unprotected Core Subsequent to Info XFER 



LOADER 
LOADER TABLE 

PROGRAMS LOADED 
SUBSEQUENT TO INFO 
XFER 

ODD SECTOR 
(WORD COUNT=M) 



( 




I 


-- -^ 


... ._ ... 


( 




A _ - 


J 






^7 




- 


< 




i 



o 



D. 



Scratch Area of Mass Storage Subsequent to Info XFER 



N*96 WORDS PLACED ON M.S. BY MOST 
RECENT INFO XFER 



COMMAND SEQ INFO FROM PREV. M.S. 
WRITE OPTNS. 

LOAD-AND-GO INFO. 



The next time a transfer of information to mass storage takes 
place, the information in the odd sector will appear on mass 
storage immediately after the last sector of information to be 
transferred to the scratch area. 

If there is no odd sector, such that 

K = N*96 and M = 0. 

the starting location for the next program to be loaded following 
the information transfer is the 1st location in Load Time Core. 
If the word count K in Load Time Core is less than 96, no information 
transfer will occur. 

3^3.2.11 Allocation of Core for Data Storage Reservation 

A Data Storage block reservation is made during a Loader Operation 
when the Loader begins to load a program which declares data and 
no previous Data Storage block reservation was made. Two areas of 
storage are set aside when a Data Storage block reservation is 
made. A Data Storage block reservation is made in the following 
way: 
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1. The information in Load Time Core is transferred to the 
scratch area on mass storage in the manner described by 
item 28.3.2.10. 



2. A block of core is set aside at the lower end of Load Time 
Core. It is equal in length to the amount of Data Storage 

to be reserved. This area of core will hereafter be referred 
to as the Load Time Data Storage Buffer. 

3. The information transfer in step 1 may have resulted in an 
"odd sector" remaining in Load Time Core. If so, the odd 
sector now occupies core locations in the area assigned as 
the Load Time Data Storage Buffer. The odd sector is to be 
moved to core locations immediately above the area of core 
reserved as the Load Time Data Storage Buffer. 

4. An area of core equal in length to the Load Time Data Storage 
Buffer is set aside in Load Time Core. This second block is 
situated immediately above the area of core now containing 
the odd sector. This block of core will hereafter be referred 
to as the "Execution Time Data Storage Block Reservation." 

5. The area of core referred to as the Load Time Data Storage 
Buffer is no longer included as part of Available Core as 
defined by item 28.3.2.2. The new lower limit of Available 
Core (hence, the new lower limit of Load Time Core) becomes 
the last storage address of Load Time Core. 

6. The 1st program to be loaded after a Data Storage Block 
Reservation is made is read into core starting immediately 
above the Execution Time Data Storage Relocation Base. 

The area of core set aside for Data Storage may be preset by the 
information the Loader reads into core. Such information is placed 
by the Loader in the Load Time Data Storage Buffer. At the end of 
either a subroutine Load or a program load operation, the information 
in the Load Time Data Storage Buffer is transferred to the Execution 
Time Data Storage Block Reservation. The Load Time Data Storage 
Buffer is held in core throughout the Loader Operation. The Execution 
Time Data Storage Block Reservation is considered to be part of the 
command sequence of the programs being loaded. This block reservation 
may or may not be transferred to the scratch area on mass storage 
during a loading operation. Therefore the above mentioned transfer 
of information may be a core to mass storage transfer. However, if 
the Execution Time Data Storage Block Reservation remains in core at 
the end of program loading, the information transfer is core-to-core. 
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3° 3. 2. 12 Diagrams of Unprotected Core with a Data Storage Block Reservation 
LOADER 

LOADER TABLE 
WORD COUNT = M 



WORD COUNT = N*96 




K WORDS OF COMMAND SEQUENCE INFO 
WHERE K = N*96+M 



o 



The above diagram is unprotected core prior to the Data Storage 
Block Reservation. 



LOADER 
LOADER TABLE 



WORD COUNT = M 




ODD SECTOR 



The above diagram is unprotected core after N*96 words have been 
transferred to mass storage. The odd sector is moved into the 
bottom end of load time core. 



LOADER 



LOADER TABLE 



... _ £ - 



I 



:l 



PROGRAMS LOADED SUBSEQUENT TO DATA 
STORAGE RESERVATION 

EXECUTION TIME DATA STORAGE BLOCK 
RESERVATION (WORD COUNT = T) 

ODD SECTOR (WORD COJ NT = N) 

LOAD TIME DATA STORAGE BUFFER (WORD 
COUNT = T) 



The above diagram is unprotected core subsequent to the Data Storage 
Reservation. 
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3^. 3.2. 13 Load Time and Execution Time Addresses 

Item 28.3.2.8 showed the relationship between the load time and 
el^^utTon - time - address - counter's; Th"is~~is~" true so long as there is 
no later storage block reservation. In general, the relationship 
of a load time storage address to an execution time storage address 
for a program is concerned, the following is true: 

load time address = execution time address - word count on mass 

storage + length of Load Time Data Storage Buffer. 

3^3.3 Input to the Loader 

The Loader issues I/O requests. to read formatted records in the 
Binary Mode. The records are not to exceed 120 characters of 
data in length. The binary records processed by the Loader will 
hereafter be referred to as relocatable binary input records. 
These are the type of records generated as binary output by the 
assembler. There are six types of relocatable binary input 
records (hereafter referred to as blocks.) Each block is identified 
by the 1st word (1st 2 data characters) of the record as follows: 

NAME OF BLOCK CONTENTS OF 1st WORD 

(HEX VALUES) 

NAM $2050 

RBD $4050 

BZS $6050 

ENT $8050 

EXT $A050 

XFR $C050 

Binary records not recognizable to the Loader will be regarded as 
illegal input and will cause the Loader Operation to be terminated. 
In addition to the relocatable binary input records, the Loader 
will process ASCII input. Since the Loader reads only in binary 
mode, the input records must have '*" as the 1st character and 
must terminate with a carriage return. A space is accepted in 
place of a carriage return in the event the input device is a 
card reader. The two ASCII input blocks acceptable to the Loader 
are the HEX block which contains hex correction constants and 
the EOL block which indicates the end of Loader operation. They 
are identified by the 1st 3 characters in the block: 

NAME OF BLOCK IDENTIFICATION 

HEX *H 

EOL *T carriage return 

EOL *T space 
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Those ASCII records not recognizable to the Loader are regarded 
as Monitor Control Statements. Such a record will cause the 
Loading Operation to be interrupted. An exit is made to the 
monitor in order to process this statement. 

3^ 3.4 Exit from the Loader 

Exit from the Loader to the Monitor is with an indirect return 
jump to the address in $EE. Immediately prior to exit from the 
Loader, the exit parameters are placed in the A, Q & 1 registers 
as illustrated below: 

EXIT FROM LOADER 



o 



A 


Q 


I 


Reason for Termination 


Type of Loader 


Request 


XFRADR 





MSWDCT 


EOL statement in input 
buffer 


RBLOAD 
SUBRLD 
PROGLD 


-0 





MSWDCN 


EOL statement in input 
buffer & no legal trans- 
fer address 


RBLOAD 


XFRADR 


I NPUT 


MSWDCT 


Control statement for 
monitor in input buffer 


RBLOAD 
SUBRLD 
PROGLD 




-0 


INPUT 


MSWDCT 


Control statement for 
monitor in input buffer 
& no legal transfer 
address 


RBLOAD 







XFRADR 


MSWDCT 


Load operation termi- 
nated due to error 
which is irrecoverable 


RBLOAD 
SUBRLD 
PROGLD 







-0 


MSWDCT 


Load operation termi- 
nated due to irrecover- 
able error & there is no 
legal XFER address 


RBLOAD 
SUBRLD 
PROGLD 


-0 





-0 


Entry point table list 


MAPS 





MSWDCT 
XFRADR 
INPUT 
RBLOAD 
SUBRLD 
rRBLOAD- 



V«{(~\ J> 



means word count on mass storage* 

means transfer address 

is name of 1st word address of relocatable binary input buffer 

means relocatable binary load request 

means library subroutine load request 

means program library load request 
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MAPS Means request for entry point table list out 

*If MSWDCT = mass storage word count is zero, the entire program is 
— contained~within-available-core-as-def ined— in-it em- 28.-3.-2.2. 



3T.4 OPERATION OF THE LOADER 



The Loader is divided into 24 separate subprograms. The subprograms 
of the Loader are all non-optional. Each of the 24 subprograms is 
required for the Loader to operate. The Loader is divided into 
subprograms for no reason other than to facilitate the eaxe of 
handling at assembly time. Each subprogram may be assembled 
independently of the others. Within the source language, no sub- 
program has either a COM pseudo. or a DAT pseudo, therefore the Loader 
requires neither common nor data storage reservations. The 24 
relocatable binary programs produced by the assembler are linked 
together in the following way: . 

Entrance to one subprogram from another is made with either a 
2 word jump instruction or a 2 word return jump instruction, either 
using the relative mode of addressing. Many subprograms of the Loader 
are coded as closed subroutines, each to be entered at a unique 

entry point location with a return jump instruction. Exit from (~^ 

a closed subroutine is made with a jump to the address placed in ^-^' 

its entry point location by execution of the return jump instruction 
at the time it was entered. Other subprograms are coded as open 
ended routines. Many of these open ended routines have more than 
one entry point. Entrance to such an open ended routine at one of its 
declared entry point locations is made with a jump instruction. Exit 
from an open ended routine is made with a jump to a location external 
to another subprogram using a two word jump instruction and the rela- 
tive mode of addressing. Within the source language of the Loader, 
the entry point names declared by the ENT pseudo in subprogram X 
are declared as external names by the EXT* pseudos in any of the 
other subprograms which reference this name. Because of the EXT* 
pseudo, the relocatable binary code generated by the assembler for 
instruction with external names as addresses provides for the rela- 
tive mode of addressing. As the 24 subprograms are linked together 
into an absolute record at load time, the relative addressing feature 
is : >a major factor in providing for a "run anywhere" capability for 
operation of the Loader. (The "run anywhere" feature of the Loader 
is more meaningfully discussed in item 28.5.2.) 

The order in which the subprograms of the Loader occur with respect 

to each other is optional with one exception. The subprogram whose 

name is LOAD (see item 28.5) must occur at the beginning of the 

Loader. This is the initialization module. Since entrance to 

the Loader from the monitor is made with a jump to its lowest (toward >— v 

0) location, the initialization module must occur at the bottom ^ 

end of the block of core containing the Loader. 
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3%5 LOAD ROUTINE - INITIALIZATION 

The Load routine is the subprogram concerned with initialization. 
Initialization is performed at the beginning of every Loader 
Operation. Entry to the Loader from the monitor is made by a 
jump to its lowest (toward 0) core address. There are three 
sections of this subprogram concerned with initialization named 
PARTI, PART 2, and PART3. 

3^.5.1 PARTI 

The 1st instruction to be executed upon entry to the Loader is 
a return jump to the location whose label is PARTI. Prior to 
•entering the Loader, the entrance parameters (see item 28.3.1) 
have been placed in the A&Q registers. 

The only function of PARTI is to record the entrance parameters 
in temporary storage locations: 

(A register) — » AINP 
(Q register) — ^ QINP 

An exit from PARTI is made by using the 2 word jump instruction 
stored at the location PARTSW and PARTSW4-1. The jump is made 
to the part of the initialization procedure. 

3^.5.2 PART2 

PART2 of initialization is performed only if the Loader is being 
used for the first time after it has been placed in core by the . 
Job Processor. PART2 is entered from PARTI by the jump instruction 
at PARTSW and PARTSW+1. This jump instruction uses the relative 
mode of addressing. The 16 bit delta value coded into the second 
word of this instruction is equal to the value of the address 
expression 

PART2-PARTSW-1. 

At the completion of PART2, this 16 bit delta value will be replaced 
by the value for the expression 

PART3- PARTSW- 1. 

In this manner, PART2 of initialization will be performed only 
during the first Loader Operation after the Loader is placed in 
core. For subsequent Loader Operations, control passes immediately 
from PARTI to PART3. 



The functions of PART2 are as follows: 
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1. To establish the relocation base for the Constant Table. 

2. To obtain and record the limits of unprotected core. 

3. To enter the entry point name from the Table of Presets 
into the - Loader Table". 



4. To reset the address of the jump instruction at PARTSW such 
that PART2 will never be entered for execution during 
subsequent Loader Operations. 

The Loader is a program with a "run anywhere" option. In other 
words, this program has the capability of being read as an 
absolute record, placed anywhere in memory and still being execu- 
table with little or no modification to the machine language of the 
Loader as it exists in the system library. 

In "run anywhere" programs of primary concern are those instructions 
which reference memory. There is no problem in the case of either 
a one word instruction or a two word instruction which uses the 
relative mode of addressing. There are no two word instructions 
using the absolute mode of addressing unless the address is set 
at some time during program execution. If it is necessary to use 
absolute addressing, the absolute value of a core location may be 
obtained at any time by use of a return jump instruction: 

RTJ* BUFADR 

BZS DIRBUF (96) 

LIBSEC NUM $FFFF,$FFFF 

BUFADR NUM $FFFF 

In the above sequence of code, the absolute value for the address 
"DIRBUF" will be placed in the location BUFADR upon execution of 
the return jump instruction. 

3CJ.5.2.1 Constant Table 

During Loader Operations, the memory index or I register contains 
the relocation base for the Constant Table. The label assigned 
to the 1st location to be occupied by the constant table is 
CONTAB. The relocation base for the constant table is equal to 
the value of the address expression 

"CONTAB- 1". 

The manner in which this relocation base is obtained is similar 
to the procedure described in the last paragraph of item 28.5.2. 
During the PART2 procedure of initialization it is necessary to 
compute the absolute values of other address constants. Referring 
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to the index of the Constant Table in item 28.5.2.1.2, the 29th 
storage location is the starting location of the input area for 
storage of relocatable binary input blocks. The execution time 
value of this address is 29+(I). This address is placed in the 
location 117+(I). The value for the starting address of this 
input area +1 = 30+(I) is placed in the location 11 & +(I). Also 
the value for the starting address -3 = 28 +(I) is placed in the 
location 122 + (I). 

In addition to the above, the 23rd location of the constant table 
is set to the value of the starting address for the Loader. Upon 
entry to PARTI with a return jump (see item 28.5.1), the value = 
"L0AD+1" is placed in the location PARTI. Therefore, the location 
23+(I) is set to the value = (PARTl)-l. 

The 91st location of the Constant Table is reserved for the 
storage of the relocation base of the Constant Table. The name of 
this location is ISAV and it is declared as an entry point name by 
the LOAD subprogram. If at any time during a Loader Operation, 
the contents of the I register should be destroyed (as in the case of 
a status request), the original value of "C0NTAB-1" may be restored 
to it. In order to do this in a subprogram other than LOAD, it is 
necessary to declare ISAV as an external name in the other module. 

3^5.2.1.1 Accessing Locations in the Constant Table 

Whenever some routine addresses a location in the constant table, it 
does so with the following type of instruction: 

OPC- n,I 

where: 

1. OPC represents a mnemonic for a memory reference instruction, 

2. n represents an ordinal position in the constant table 
(position 1 up to position 255), and 

3. I represents the memory index. 

It is necessary that many locations in the Constant Table w?t be 
preset with specific values at the time the Loader is placed in 
core. Those locations in the Constant Table for which this does 
not apply are preset to a value of zero. 

External pseudos must be. included in the source language for LOAD 
for those locations in the constant table preset to address cons- 
tants where these address constants refer to locations in other 
routines. An example is as follows: 
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SCAN is a closed subroutine but the entry to scan is in the constant 
table. The 145th to the 148th word in the constant table are set 
to the following code: 

word 145 

word 146 

word 147 

word 147 

where hhhh is an increment for a two word jump instruction using 
the relative mode of addressing. The source language is as follows: 



1 


4 


00 


$FFFF 


1 


8 


00 


hhhh 



LABEL 



OPCODE 

JMP+ 

JMP 

EXT* 



ADDRESS 

($7FFF) 

SCAN 

SCAN 



REMARKS 

RETURN FROM SCAN 
JUMP TO SCAN 



where the name SCAN is an entry point name in some other routine. 
3^,5.2.1.2 Table of Contents of Constant Table 

USE: 

relocation base for common storage 
at execution time 

relocation base for data storage 
at execution time 

relocation base for program currently 
being loaded at execution time 

highest address of common storage +1 
at execution time 

highest address of data storage +1 
at execution time 

highest address of command sequence 
storage +1 at execution time 

lowest address (toward 0) of loader 
table 

=1 if last relocation byte in RBD or 
BZS block 



ORDINAL 


NAME 


1 


COMBAS 


2 


DATBAS 


3 


PROBAS 


4 


C0MLIM 


5 


DATLIM 


6 


CSQLIM 


7 


TABLIM 


8 


ENDSW 
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ORDINAL 


NAME 


9 


NGRLSW 


10 


INPWRD 


11 


INPREL 


12 


XFRADR 


13 


ENTPNT 


14 


LINK 


15 


INPCTR 


16 


TABSCTR 


17 


ENDINP 


18 


BLANKS 


19-21 


SYMSTR 



22 

23 

24 
25 
26 



SCANSW 

BASE 

WRDCNT 
COUNT 1 
BZSSW 



27 


BLKCNT 


28 


SW6 


29-88 


INPUT 


89 


ASAV 


90 


QSAV 


91 


ISAV 



o 



USE: 

negative address relocation switch 

contains end of command sequence storage 

contains rel. flag for word of sequence 
storage in RBD and BZS block 

contains transfer address of name 
from an XFR block 

contains address associated with 
name in EXT or ENT block 

contains address associated with name 
in loader table 

used to address core location of 
command sequence storage at load time 

tally of loader table entries 

highest address in load time core 
for command sequence storage 

ASCII code for spaces = $2020 

used by SCAN to record characters 
extracted from field containing ASCII 
input 

used by SCAN to determine type of 
ASCII field 

relocation base on which it is to 
operate of loader 

address or character reference counter 

counter 

used by subroutines common to RBDPRO & 
BZSPRO; =1 for BZS block; =0 for RBD 
block 

block counter 

index counter 

input buffer 

temporary storage for A register 

temporary storage for Q register 

storage location for constant table 
relocation base 
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92-94 


XFRNAM 


95-98 


NAME 


99-102 


TABSCH 


103-106 


TAB ST R 


107-110 


CHPU 


111-112 


BINASC 


113-116 


PRINT3 


117 


INPXC0 



storage of 6 character XFR name 

secondary storage for field after 
SCAN operation 



118 



INPXC1 



119-121 


PRINT2 


122 


INDXC3 


123-124 


NXTINP 


125-140 


HEX CODES 


141-144 


ADJOVF 


145-148 


SCAN 


149-152 


C0NVRT 


153-156 


PRINT4 


157-160 


PRINT5 


161 


A INPUT 


162 


QINPUT 


163-166 


LINK1 


167-170 


LINK2 


171 


PRODTF 



Loader Table search routine entrance 

Loader Table storage routine entrance 

character pickup routine 

Storage of ASCII code for number 
conversion 

error output routine (resume operation) 

contains address constant = "INPUT" or 
29+(I) 

contains address constant = "INPUT" or 
30+(I) 

error output routine (Stop Operation) 

contains address constant = "INPUT-3" 
or 26+(l) 

jump instruction to read next input 
block 

ASCII codes for hex digits 

routine to perform address arithmetic 
(15 bits) 

SCAN routine entrance 

binary to ASCII conversion routine 
entrance 

print out routine (prints characters 
name and 4 digit hex address) 

print out routine (prints 6 character 
names) 

contains A register upon entry to loader 

contains Q register upon entry to loader 

entrance to routine which patches in 
entry to loader 

entrance to routine which ties together 
2 strings of link addresses 

size of absolute record placed by 
loader on mass storage; the value in 
PRODIF is equal to the difference of 
(PROBAS)-(PROSTR) 



c 
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172 
173-174 

175-176 

177 
178 

179 



180 
181 

182 

183 

184 
185 



START 
SECTN0 

INPLUN 

DATLEN 
DATRES 

L0WC0R 



DATSTR 
PR0LIM 

DATCTR 

CSQCTR 

DATDIF 
PR0STR 



186 


DIFCON 


187-190 


COREXT 


191 


LWRLIM 


192 


UPRLIM 


193 


"INPUT 



o 



194-195 



PROS EC 



start address for Mass Storage 1/0 

starting sector for mass storage I/O 
requests 

logical unit number for input (L & A 
parameters for calling sequence) 

length of Data Storage block reservation 

contains starting address in Load Time 
Core for Data Storabe block reservation 

Contains the starting address for Load 
Time Core 

(L0WC0R) = ($F7)+1 if (DATBAS) =0 
(L0WC0R) = (DATCTR) if (DATBAS) JO 

contains the starting address for the 
Load Time Data Storage Buffer 

contains the address of the last word 
in the odd sector which occupies the 
lower 1-95 words of Load Time Core 

contains the highest (toward $7FFF) 
address reserved for the Load Time 
Data Storage Buffer +1 

contains the highest (toward $7FFF) 
address reserved for command sequence 
storage at load time +1 

contains a value equal to the difference: 

(DATBAS) - (DATSTR) 

contains the relocation base for storage 
of a relocatable binary program in Load 
Time Core 

temporary storage 

routine which writes absolute records 
produced from rel. binary input onto 
mass storage 

lowest unprotected location -1 

highest unprotected location +1 

start address for input device I/O 
operation 

starting sector number if input device 
is mass storage 
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196 
197 

198 

199-202 



203 



204 



205 



AHOLD 
QH0LD 
SECT0R- 
DPRADD 

DSECN0 

TABS NO 

E4SAVE 



temporary storage for A register 
temporary storage for Q register 
-"SECTOR"-=-96: 



10 

entrance to routine to compute absolute 
value of starting sector for mass 
storage I/O requests 

relative value for starting number for 
storage of Load Time Data Storage Buffer 
in the scratch area of mass storage 

relative value for starting sector 
number for storage of Loader Table in 
the scratch area of mass storage 

contains the relative value of the last 
sector number for Load-and-Go input. 



Many of the constants in the Constant Table may be used by a subpro- 
gram in a manner other than that indicated by the Table of Contents. 
If so, an indication will be made in the maintenance documentation of 
the subprogram. 

3cj 5.2.2 Core Request for Limits of Unprotected Core 

The A register and the Q register are set to zero, and a core request 
is made in order to obtain the limits of unprotected core. Upon 
return to the Loader following crmpletion of the request, the A 
register contains the upper limit and the Q the lower limit of 
unprotected core. 

The upper limit contained in A is recorded at the locations in 
the Constant Table UPRLIM and COMLIM. The lower limit is read at 
LWRLIM AND L0WC0R. 

3^5.2.3 Processing Table of Presets 

The entry point names and addresses in the Table-of-Presets are 
entered into the Loader Table as entry point names. Item 28.5.2.3.1 
is a description of the Loader Table while 28.5.2.3.2 is a descrip- 
tion of the Table of Presets. 

3^5.2.3.1 Loader Table 

The Loader Table comprises a list of entry points and externals 
processed during a sequence of Loader Requests prior to job 
execution. The Loader Table begins immediately below the base 
address of the Loader and is expanded backward (toward 0) in 
memory during a loading operation. 



^..^ 
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A single entry in the Loader consists of 5 words. Words 1, 2 and 3 
consist of the ASCII code for a name of up to 6 alphanumeric char- 
acters. If fewer than six characters are used, the unused character 
positions are filled with the ASCII code for spaces. If the entry 
contains an entry point name, word 4 holds the associated entry 
point address. (Word 4 is positive in value.) 

If the entry contains an external name, word 4 contains the one's 
complement for the associated link address. 

Word 5 of the Loader Table entry serves as a pointer. If a name 
appears in more than one entry in the Loader Table, word 5 of the 
most recent entry contains the address which points to word 4 of 
the previous entry. The 1st entry to be made in the Loader Talbe 
for this name contains a "-0" in word 5. If a name appears in 
only one entry of the Loader Table, word 5 of this entry is set 
to a "-0". 

The TABSTR routine (see item 28.8.6) is used for the purpose 
of making Loader Table entries. 



o 



3=15.2.3.2 Table of Presets 



The Table-of-Presets is located in protected core. The starting 
address for the Table-of-Presets is recorded at the communication 
region address of $F2 while $F1 contains the table length. 

The format of an entry in the Table of Presets contains the entry 
point name and address for a program in the core resident portion 
of the operation system. 

When an entry point name from the Table of Presets is entered into 
the Loader Table, - 

1. W0RD5 of the Loader Table entry is set to -0, 

2. The sign bit of W0RD2 of the entry is set to a 1. 

If a program is loaded that uses an external name to match the name 
from the Table-of-Presets, the sign bit of W0RD2 for the matching 
Loader Table entry is reset to zero. If the entry point name from 
the Table-of-Presets is not referenced as an external by any of the 
programs loaded, the sign bit remains set at the completion of 
loading. This name will not appear on the list entry points produced 
during a memory map operation. (See item 28.6.10.) 



3^.5.3 PART3 



o 



PART3 consists of all initialization required for each Loader re- 
quest made prior to -^>b execution. One such operation will be to 
transfer (AINP) and ^QINP) to locations in the respective constant 
table AINPUT and QINPUT. Once placed in the constant table, then 
this information will be more easily accessed by other routines 
comprising the loader. Another is a CORE REQUEST in which the Loader 
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asks for the limits of core available to it for storage of relocatable 
binary inputs. The lower address in the Q register will be recorded 
as the execution time relocation base for the next program to be loaded 
inrThe~locaFioirPROBAS~& — CSQL'IMi The constants PROSTR~an~d~CSQCTR 
are set to the value for the load time relocation base of the next 
program to be loaded. The value of this relocation base is equal 
to - 

execution time relocation base + length of Data Block Reservation - 
word count on mass storage 

or 

(PROBAS) 4- (DATLEN) - (PRODIF) PROSTR 

The contents of the location $E4 is the relative value for the 
last sector number in the scratch area containing the load-and-go 
input. PART3 records this number at the location $E4SAVE. If 
there is no load-and-go in the scratch area, ($E4) =1. In this 
case PART3 will set $E4 to zero. (Refer to item 28.8.10 and 28.8.11 
for the significance of the number in $E4 and relative values for 
sector numbers.) 

3^.5.4 Subroutines Used by and External to Load 

TABSTR is used for making Loader Table Entries. (Refer to item 
28.8.6.) 

3=1.5.6 Exit from LOAD 

Exit from LOAD is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EXT BRANCH 

JMP BRANCH 



3^ 



BRANCH 

The bits 0-3 of the location AINPUT determines the branching which 
occurs. According to the "type of operation requested by the program 
calling the Loader, branching will occur to one of the four locations 
labeled as follows: 

RBLOAD (See item 28.6.4) 

SBLOAD (See item 28.6.6) 

PROGLD (See item 28.6.8) 

MAPS (See item 28.6.10) 

ADRPRO -LSee item Sfl.^.fl} (^ 
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3^6.1 Constant Table Storage Referenced by BRANCH 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

AINPUT 161 

ASAV 89 

BINASC 111 

BLANKS 18 

BLKCTR 27 

COMBAS 1 

COMLIM 4 

CONVRT 150 

COUNT 1 25 

CSQLIM 6 

DATBAS 2 

DATCTR 182 

DATLEN 177 

DATLIM 5 

DATRES 178 

DATSTR 180 

DPRADD 200 

E4SAVE 205 

ENDINP 17 

ENTPNT 13 

INPCTR 15 

INPREL 11 

INPUT 29 

INPXCO 117 

INPXC1 118 

INPLUN 175 

LINBUF 29 
- same storage position as INPUT 

LINK 14 

LOWCOR 179 

LWRLIM 191 

PRINT3 114 

PRINT4 154 

PRINT5 158 

PROD IF 171 

PROSEC 194 

QINPUT 162 

QSAV 90 

SCAN 146 

SCANSW 22 

SECTNO 173 

SECTOR 198 

SW6 28 

SYMSTR 19 

TABCTR 16 

TABLIM 7 

TABSCH 100 

TABSTR 104 

WRDCNT 24 

XFRNAM 92 

ca 138-1 XFRADR 12 
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3 C 16.2 Communication Region Constants Used by BRANCH 
CONSTANT LOCATION 



1. $7FFF MASK1 = $42 

2. ordinal for mass storage device $B3 
containing scratch area 

3. number of 1st sector in scratch $C0 and $C1 
area on mass storage 

4. ordinal for mass storage $C2 
device containing Program 
Library and Program Library 
Directory 

5. sector number for beginning $C3 and $C4 
of Program Library Directory 

on mass storage unit containing 
Program Library 

6. Sector number for end of $E4 
load-and-go in scratch area 

on mass storage 

7. address for return to monitor $EE 

8. entry to operating system $F4 
for making monitor requests 

9. ordinal for standard input $F9 
device for system 



3^6.3 Entrance to BRANCH 



The BRANCH routine is entered directly from PART3 of the LOAD 
routine. The BRANCH is entered by the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP BRANCH 

where the name BRANCH is declared as an entry point in the BRANCH 
routine and as an external in the LOAD routine. 



C 
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3^6.4 RBLOAD - Relocatable Binary Loading 

The sequence of code for this branch begins at the location whose 
label is RBLOAD. The Loader selects the input device for the Reloca- 
table Binary Load Operation according to the information in bits 
4-15 of the location in the constant table. The name of this location 
is AINPUT. The Loader will do one of the three steps below in order 
to select an input device: 

1. If bit 15 of AINPUT is a 1, bits 4-14 of AINPUT are ignored 
and - 

a) the address "$F9» is placed in INPLUN, and 

b) the location INPLUN+1 is set to a 2. 

The input device selected in this case is the standard input 
medium for the system. The location $F9 contains the ordinal 
for this device. 

2. If bit 15 of AINPUT is a and bits 4-14 = ($B3) then - 

a) the address "$B3" is placed in INPLUN, and 

b) the location INPLUN+1 is set to a 2. 

J The input device selected in this case is the scratch unit 

for the system. The location $B3 contains the ordinal for 
this device. 

3. If bit 15 of AINPUT is a and ($B3) ^ bits 4-14 of AINPUT, 
bits 4-14 of AINPUT contain the ordinal for the input device 
such that - 

a) bits 4-14 of AINPUT are recorded in bits 0-10 of INPLUN, 
and 

b) the location INPLUN+1 is set to 0. 

The locations INPLUN and INPLUN+1 are located in the constant table. 
The contents of INPLUN and INPLUN+1 become the "L" and M A" parameters 
to be inserted into a parameter list for the read requests made by 
the IDRIV subroutine. (Refer to item 28.7.1.) For information con- 
cerning parameter lists in I/O request, refer to item 6.4 in the 
Operating System ERS. 

If the input device selected by RBLOAD is the mass storage device 
containing the scratch area, the locations PROSEC and PROSEC+1 
are set to the sector number for the 1st sector in the scratch area. 
If the input device is a mass storage unit, it is because the Loader 
Operation involves load-and-go input and the 1st sector in the scratch 
area is the start of the programs to be loaded. The locations 
PROSEC and PROSEC+1 are the 193rd and 194th locations of the constant 
table. Bits 0-14 of PROSEC contain the most significant half and 
bits 0-14 of PROSEC+1 the least significant half of the starting 
sector number. If the input device is not a mass storage unit these 
two locations contain zeros. 
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Next a return jump is made to the beginning of the routine which 
performs the actual loading operation. The name of this routine is 
LOADER. (See item 29.1.) The name LOADER is declared as an entry 



point wi£hin~~tHe~~ LOADER - routine - and~as~an~~ external - in-the-BRANCH- 

routine. A return to the BRANCH routine from LOADER will be made when 
one of the following occurs: 

1. An EOL input block had been read resulting in the termination 
of the Loading Operation. Upon the return to BRANCH - 

(A reg.) = -0 
(Q reg.) = 

2. An operating system control statement has been read re- 
sulting in the termination of the Loading Operation. Upon 
return to BRANCH - 

(A reg.) = -0 

(Q reg.) = 1st word address for storage of the control 
statement. 

3. An unrecoverable error condition has occurred. Upon return 
to BRANCH - 

(A reg.) = . 

(Q reg.) = -0 

Upon return to BRANCH, these values are recorded in the 
constant table as follows: 

(A) >AINPUT 

(Q) >.QTNPUT 



f 



3^6.5 Exit from RBLOAD 



A return jump is made to the LIMSET routine to record the new temporary 
limits of core. (See item 28.6.12.1.) Another return jump is made to 
the GETADR subroutine to obtain the transfer address resulting from 
this loading operation. (See item 28.6.12.2.) 

In addition, the following occurs upon exit from RBLOAD: 

1. The location SEE contains the address for returning from 
the Loader to the monitor. This address is recorded in the 
second word of a 2 word return jump instruction using abso- 
lute addressing. The label assigned to the 1st of the 2 
locations containing this instruction is LDXIT1. 

2. If the Loading Operation did not involve Load-and-Go input, 
the location $E4 contains a zero. If ($E4) = 0, its original 
value contained in E4SAVE is restored to it. 

3. If (AINPUT) =£ 0, the Loader Operation was not terminated 
due to unrecoverable errors. In this case the following 
values are placed in A, Q & I: 
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(XFRADR) — * A 

(QINPUT) y Q 

(PRODIF) - — > I 

where 

a) (XFRADR) = core location for legal transfer address of 

program; = -0 if no legal transfer address is 
indicated. 

b) (QINPUT) = if Loader Operation terminated due to EOL input 

block or = core address for storage of monitor 
control statement if operation terminated by 
the occurrance of such a statement in the Loader 
input. 

c) (PRODIF) = word length of command sequence placed on mass 

storage during Loading Operation. This word 
count is if the space required for the pro- 
grams read in by the Loader does not exceed the 
capacity of Load Time Core. 

In the event the Loader Operation was terminated due to an unrecover- 
able error, (AINPUT) =0. The A, Q & I registers wi 11 be set to 
the following values: 

— *• A 

(XFRADR) — ^ Q 
(PRODIF) > I 

A return jump is made to the monitor from LDXIT1. 

3 C 16.6 SBLOAD - Subroutine Loading from Program Library 

The sequence of code for this branch begins at the location whose name 
is SBLOAD. The input device for this operation is the mass storage 
unit containing the Program Library. The sequence of events are as 
follows: 

1. Make initial check of Loader Table for entries containing 
unpatched externals. (An unpatched external is an external 
name for which no program has been read on containing an 
entry point name to match.) 

2. A search is made of the Program Library Directory for a name 
to match each unpatched external in the Loader Table. For 
each matching name encountered in the Program Library Dir- 
ectory, the corresponding program is loaded from the Program 
Library. 

3. At the completion of step 2, a second search is made of the 
Loader Table for entries with unpatched externals. An error 
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condition exists if any unprotected externals remain 
in the Loader Table. The appropriate error in- 
dication is printed followed by a list of the un- 
patched~externals~. T l^is~~ilnfbrmat~ion is printed 
on the list output medium. 

M. At the completion of Step 3n the operator has the 

option to intervene at the console. He may instruct 
the Loader to complete the operation and prepare 
for job execution to look up any unpatched exter- 
nals in the core resident directory! or to termin- 
ate the load and suppress job execution. 

If the Loader is to look up in the core resident 
directory! it goes back to step E with this excep- 
tion: instead of searching the Program Library 
Directory! the Loader searches the core resident 
directory for entry points. 

If the Loader is to complete the operation! proceed 
to step 5. 

5. The Loader sets the new limits of core as a result 
of the Loader Operation. 

b- If no data has been declared at any time during a 
Loader Operation! proceed to step b. If data had 
been declared a transfer of information occurs as 
follows: The contents of the Load Time Data Storage 
Buffer is transferred to the area set aside as the 
Execution Time Data Storage Block Reservation. 

7. The Loader obtains the transfer aedress with which 
to enter the program for execution! and returns to 
the monitor- 
s'!, b.b.l Checking Loader Table for Unpatched Externals 

Checking Loader Table entries for unpatched externals is 
accomplished with a program loop. The sequence of code 
for this loop begins at the address assigned the label 
TABCHK. Within this loop there are. two word jump in- 
structions using the relative mode of addressing. The 
delta values for the second word of either jump instruc- 
tion are placed there during program execution. 
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Located at the addresses SLJS and SU5+1 is one of the 
two jump instructions. The execution of this instruction 
is the manner in which an exit is made from this loop. 
With respect to step 3 in item Efl.b.tn this instruction 
operates as follows: 

1- A jump will be made to SU5At if no unpatched ex- 
ternals occur during a second check of the Loader 
Table. This may be regarded as the ^normal exit* 7 
from the loop which checks for unpatched externals 
in the Loader Table. 

E. A jump will be made to SU5B if at least one un- 
patched external occurs during a second Loader 
Table check. This may be regarded as the error 
exit from the loop. 

Located at the addresses SUM and SUm-1 is the other 
of the two jump instructions. If there are no un- 
patched externals in the Loader Table i this in- 
struction is never executed. 



O 
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The execution of the jump instruction at SW4 and SW4+1 occurs only 
when an unpatched external is encountered during a search of the 
Loader Table: 



1. WittTTespect~to~step— 1— of— item-28.6.6,_a_jump will be made 

to the location SUBRLD upon the 1st occurrance of an unpatched" 
external during an initial Loader Table check. 

2. With respect to step 3 of item 28.6.6, a jump will be made 
to the location SW4A upon the 1st occurrance of an unpatched 
external during the second Loader Table check. 

3. With respect to step 3 of item 28.6.6, a jump will be made 
to the location SW4B for each occurrance of an unpatched 
external during a Loader Table check subsequent to the 1st 
occurrance. 

In the case of the jump instruction at SW4 and SW4+1, a jump will 
be made to the location SW4A if the location SW4+1 contains a 16 
bit delta equal to the value of the address expression: 

SW4A - SW4 -1. 

Henceforth, this will be referred to as "setting the switch SW4 to 
the SW4A position" or "setting SW4 to SW4A". This will be indicated 
symbolically as - 

"SW4A >SW4 

In general - 

"X" ^ Y 

means set the location Y to the value X" or set the switch Y to the 
X position. 

When making the Loader Table check, the entries are examined beginning 
with the 1st entry and working downward through core. (The 1st entry 
in the Loader Table occupies the five words immediately preceding the 
base address of the Loader.) 

The location TABCTR contains the number of Loader Table entries. The 
location SW6 is set to the word length of the Loader Table: 

(TABCTR) * 5 > SW6 

The location TABLIM contains the base address of the Loader Table. 
Each time the TABCHK loop looks at a Loader Table entry, it reduces 
the index counter SW6 by 5. After the TABCHK loop checks the last 
entry in the Loader Table, SW6 is reduced to a negative value. There- 
fore, the test for completion is - 
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"if (SW6) <0, execute jump at SW5". 

The TABCHK loop looks at the fourth word of the Loader Table entry 
to determine if it is an unpatched external. The test for an un- 
patched external is: 

"if ((TABLIM) + (SW6) + 3) <0, execute jump at SW4". 

3^6.6.2 Initial Loader Table Check 

Prior to starting the initial Loader Table check for unpatched 
externals, the following occurs: 

"SUBRLD" > SW4 

"SW5A" > SW5 

Upon the 1st occurrence of an unpatched external, a jump is made at 
SW4 to the address SUBRLD. Otherwise a jump is made at SW5 
to SW5A. (See item 28.6.6.6.) 

3^6.6.3 Searching Program Library Directory for Unpatched Externals 

The Program Library Directory is recorded on the mass storage unit 
containing the Program Library. The Program Library is divided 
into 96 word segments (96 words per sector) as follows: 

1. The last 2 words (95th and 96th words) of each sector in 
the directory is a link which points to the next sector 
in the directory. (The directory does not necessarily 
occupy consecutive sectors on mass storage.) 

2. The 94th word of a sector in the directory indicates the 
number of unused words in the 96 word segment if this is 
the last 96 word segment in the directory. This number 
will be an integer multiple of 5 ( 5 words in a directory 
entry) such that - 

£ 5 n c 85, 

where n = 0, 1, 2, ... 17. 

3. The 91st, 92nd and 93rd locations in the sector are not 
used. 

4. A 5 word directory entry contains the following information: 

a. W0RD1 to W0RD3. 

The six character name for this entry is stored 2 ASCII 
characters to a word. If (W0RD1) = 0, the entry has 
been deleted. 

b. W0RD4 & W0RD5 

If the entry contains an entry point name for a pro- 
gram in the library, the last two words of the entry 
contain the starting sector number in the library for 
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this program. (This is the sector number where the 
NAM block for the relocatable binary input is stored.) 

If t he entry contains a file name, the 4th word of 

the entry contains th!T~one r'~s~ complement-o f — the-f 1-le— in 

sectors, and the 5th word contains the starting sector 
for the file in the library. This sector number is 
15 bits in length whereas, sector numbers for programs 
are 30 bits in length, 15 bits per word of storage. 

A search is made starting at the beginning of the pro- 
gram library directory progressing toward the end. 
The locations in the communication region $C3 and $C4 
contain the starting sector for the Program Library 
Directory. 

There is a maximum of 18 entries per sector. 

The number in locations $C3 and $C4 is recorded in SECTNO and SECTNO+1. 
A return jump is made to the MDRIV routine (see item 28.7.3) to 
read the 1st 96 word segment on the Program Library Directory. One 
sector is read into the block of locations starting DIRBUF and 
terminating at DIRBUF+95. The location INPCTR is set to the 1st 
word address of the 96 word input area: 

"DIRBUF" > INPCTR 

Immediately upon return from MDRIV, the link to the next 96 word 
segment of the directory is recorded: 

(DIRBUF+94) > LIBS EC 

(DIRBUF+95) ^ LIBS ECU 

The Loader searches forward through the sector looking for an entry 
such that 

1) ((INPCTR)) ± 

meaning that the Directory entry is not deleted, and 

2) ((INPCTR)+3) >0, 

meaning that the directory entry is not a file name. Each time one 
of these conditions is not set, the address counter for the input 
area is increased: 

(INPCTR) - 5 > INPCTR 

The last entry in the sector has been encountered if - 

"DIRBUF+90" - ( INPCTR )=(DIRBUF+9 3) (^ 
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where: 

1. M DIRBUF+90" = address following last entry in sector. 

2. (INPCTR) = 1st word address of next sector entry. 

3. (DIRBUF+93) = number of unused core locations in sector. 

When the last entry in DIRBUF has been encountered, a test is made 
to determine if this is not the last 96 word segment in the direc- 
tory. It is not the last segment if either 

(LIBSEC) f 

or 

(LIBSEC+1) f 

The next segment in the directory is read and the entire procedure 
repeated by recording the sector number for the next 96 word direc- 
tory segment - 

(LIBSEC) >SECTN0 

(LIBSEC+1) ^SECTNO+1 

and reading the next directory segment using MDRIV. 

If the last segment of the directory has been encountered such that 
(LIBSEC) = (LIBSEC+1) = 0, 

the end of the directory has been reached. Once the end of the 
directory has been reached, a jump is made to TABCHK for a second 
check of the Loader Table. (See item 28.6.6.4.) 

If in the process of searching through the Program Library Directory, 
an entry is encountered such that - 

((INPCTR)) -h 

and 

((INPCTR)+3) > 0, 

a search is made of the Loader Table using the TABSCH routine. (See 
item 28.8.5.) If upon return from TABSCH, (SW6) <0, it means no 
entry with a name to match has been found in the Loader Table. If, 
upon return from TABSCH, ((TABLIM)t-(SW6)+3) > 0, it means that an 
entry with a matching name has been found in the Loader Table, but 
this entry has already been defined as an entry point name. In 
either case the address counter INPCTR is increased to look at 
the next entry in the directory - 

(lNPCTR)+5 > INPCTR. 
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If t as a result of a Loader Table searchn an entry has 
been found such that - 



■CSUb} > D 

and 

■C-CTABLII1>+-CSU_>+3> ^ D-. 

it means that there exists an external name in the 
Loader Table which references some entry point name 
contained in a library routine. 

This routine must be loaded from the Program Library 
in order to satisfy this external name. -tin the 
process of loading a routine to satisfy one external t 
it is possible that many others will have been satis- 
fied as well.} In order to load this routine from the 
Program Library i the starting sector number is taken 
from the directory entry and recorded: 

■C-CINPCTR>+3> > PROSEC 

•C-CINPCTRI + M* > PROSEC + 1 

A return jump is made to LOADER -Csee item ST-l} in order 
to load this program. 

Upon return from Loader -> the exit parameters in the A 
and Q. registers are recorded in AINPUT and (3INPUT 
respectively. Each time a program is loaded from the 
Program Library i it is necessary to repeat the entire 
procedure of searching the Program Library Directory 
trying to match entry point names in the directory 
with any external names that may yet remain in the 
Loader Table. 

This procedure is not complete until a complete pass 
has been made to the end of the Program Library 
Directory! andn in the process of so doing-i no external 
names have been encountered in the Loader to match any 
entry point name in the directory. At this time any 
external names remaining in the Loader Table are regarded 
as unpatched externals. They will be detected during a 
second search of the Loader Table. -Csee item _-•--_•_-} 

3^. b.b-M Searching Core Resident Directory for Unpatched Externals 

The Core Resident Entry Point -CCREP} Directory is re- 
corded on the mass storage unit when the system is 
initialized! in the same format as the Program Library 
Directory. The CREP directory has an entry for each 
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symbol declared an entry point when the core resident load 
is completed during system initialization. The last two 
words of each entry in the directory point to the same 
mass storage sector number. The CREP program begins at 
this sector. 

The CREP program consists of a dummy NAM blocki as many 
ENT blocks as necessary to accommodate all core resident 
entry pointsi and a dummy XFR block. Each ENT block con- 
tains up to 1M entry point names n and the absolute 
address of each name. 

Neither the CREP directory nor CREP program are modified 
at any timen unlessn of coursei the system is rebuilt 
with the initializer. The starting sector address of 
the CREP directory is saved in the two words just pre- 
ceedi ng the System Library Directory. When the CREP 
directory is to be searchedi this initial directory 
address is used instead of the first sector address of 
the Program Library Directoryi but it is then processed 
as though it were a search of the Program Library 
Directory. In subroutine BRANCH this is accomplished 
by: 

-C-C$EB>-3> + l — > LIBSEC 

•C-C$EB>-3>+2 — * LIBSEC + 1 

2 — > AINPUT 

and processing the routine SUBRLD normally. 

3^. fcj.b.5 Loader Table Check Subsequent to Loading Subroutines 

A second check is made on the Loader Table to look for 
any remaining unpatched externals. Prior to beginning 
the second Loader Table check the switches SUM and SU5 
are set as follows: 

*SUMA* — > SUM 

*SU5A* — > SU5 
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If no unpatched externals occur during the second Loader Table 
check, a jump is at SW5 to SW5A. (See item 28.6.7.) However, 
upon the occurrence of the first unpatched external, a jump is 

~made~~at~SW4~to"SW4A7 At~SW4A^ — the - swi-tches - SW4 _ and _ SW5-are-reset 

as follows: 

SW4B > SW4 

SW5B 5> SW5 

Next, the error indication "E10" is printed using the PRINT3 
subroutine. (See item 28.8.7.1.) 

The next instruction to be executed is located at the address 
SW4B. This is a return jump to the PRINT5 subroutine (see item 
28.7.7.4 ) to print the 6 character name of the unpatched external. 
Prior to entry to PRINT5, the location INPCTR must be set to the 
1st word address of the Loader Table entry containing the unpatched 
external: 

(INPCTR) = (TABLIM) + (SW6) 

The location INPCTR is set to the 1st word address of each Loader 
Table entry as this entry is being checked for an unpatched external. 

Following the printout of this name, a jump is made to the location 
TCHKJ1 where the check for additional unpatched externals continues. 
Upon the occurrence of all subsequent unpatched externals a jump 
is made at SW4 to the location SW4B where only the external names (and 
no error indication) is printed. Upon the completion of the 2nd 
Loader Table check, a jump is made at SW5 to the location SW5B. 
At SW5B an indication of "E" is printed on the typewriter using 
the CDRIV subroutine. (See item 28.7.2.) 

When the break light lights up on the typewriter keyboard, the 
operator may enter one of two statements at the typewriter: 

1. The statement "*T carriage return" instructs the Loader 
to terminate the Loader operation and abandon job exe- 
cution. A zero is placed in the location AINPUT, and a 
jump is made to RBLXIT. At the location RBLXIT is the 
beginning of the process for exit from the Loader for a 
relocatable binary load operation. (See item 28.6.5.) 

2. The statement "* carriage return" instructs the Loader to 
continue with the Loader Operation and prepare for job 
execution. A jump is made to location SW5A. (See item 
28.6.7.) 



3^6.7 Exit from SBLOAD 



A jump is made to the LIMSET subroutine (see item 28.6.12.1) to 
record the new temporary limits of core. 
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Next a test is made to see if data has been declared by some pro- 
gram read in during the Loader Operation. If (DATBAS) =£ 0, there 
exists a data block within the command sequence. The contents of 
the Load Time Data Storage buffer must be transferred to the space 
in the command sequence of the programs read in reserved as the 
Execution Time Data Storage Block Reservation. This is done in 
one of two ways: 

1. If (PROD IF) = 0, the entire command sequence is contained 
within the limits of Load Time Core as follows: 

a. (DATBAS) = Beginning of Data during execution of Pro- 
grams being loaded. 

b. (DATRES) = Beginning of Execution Time Data Storage 
Block Reservation in Load Time Corf. 

c. (DATSTR) = Beginning of Load Time Data Storage Buffer. 

d. (DATLEN) = Length of Data Block. 

e. (L0WC0R)+l=Beg inning of Command Sequence in Load Time 
Core. 

f. (CSQCTR) = Last address +1 of Command Sequence in Load 
Time Core. 

The contents of the Load Time Data Storabe Buffer is moved (last 
word first) to the Execution Time Data Storage Block Reservation as 
follows: 

((DATSTR)- (DATLEN)) > ( DATRES )+( DATLEN) 

((DATSTR)-K DATLEN)-!) — $► (DATRES)+(DATLEN)- 1 



(( DATSTR )+l) > ( DATRES)-! 

((DATSTR)) > (DATRES) 

Following this information transfer, each word in the command sequence 

is moved from its Load Time core location to its execution time 
core location: 

((L0WC0R)+1) > (LWRLIM)-*1 

((L0WC0R)+2) > (LWRLIM)+2 



((ENDINP)-l) > (ENDINP)-( DATLEN) -1 

where (LOWCOR) - (LWRLIM)+( DATLEN) as of the time a data storage 
reservation is set aside by NAMPRO. (See item 28.9.2.) ENDINP 
contains the highest address in Load Time Core used for storage of 
command sequence input. (See item 28.9.5.4.) 
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2. If (PR0DIF) =£ 0, the command sequence of the programs 
read in by the Loader is contained in the scratch area 
on mass storage. It is necessary to (1) locate the sectors 

containing-the-Execution— T-ime-Data-Storage-Block-reser- 

vation, (2) read them into core, (3) transfer into them 
the contents of the Load Time Data Storage Buffer, and 
(4) write them back out onto mass storage. 

In order to perform this operation, it is necessary to 
compute the value for the starting sector number using 
the DPRADD routine. (See item 28*8.11.) In order to read 
and write using the mass storage unit, it is necessary to 
use the MDRIV routine. (See item 28.7.3.) 

At this time, it is necessary to obtain the transfer address to be 
used for entry into the program for execution. A return jump is 
made to the routine GETADR (see item 28.6.12.2) to pick up the 
transfer address. Upon return from GETADR, the location INPCTR 
contains the address "XFRNAM" which is the 1st of 3 locations con- 
taining the ASCII code for the 6 character name. The Location 
XFRADR is the location containing the transfer address. If upon 
return from GETADR, (XFRADR) = -0, it is because no transfer name 
had occurred as a result of a Loader Operation or the transfer name 
in the last XFR block read by the Loader is an illegal one. A 
zero is stored in AINPUT. An error indication of "E13" will be 
printed using the PRINT3 subroutine. The transfer name will be 
printed following this error indication using the PRINT5 routine. 
In the event no transfer name was recorded at XFRNAM, 6 spaces will 
be printed on the line following the error indication. 

The remainder of the exit procedure is as follows: 

1. The location $EE contains the address for returning from the 
Loader to the monitor. This address is recorded in the 
second word of a 2 word jump instruction using the abso- 
lute addressing. The label assigned to the 1st of the 2 
locations containing this instruction is LDXIT2. 

2. If the Loading Operation did not involve Load-and-Go 
input, the location $E4 contains a zero. If ($E4) = 0, 
its original value contained in E4SAVE is restored to it. 

3. If (AINPUT) ^ 0, the Loader Operation was not terminated 
due to unrecoverable errors. In this case, the following 
values are placed in the A, Q & I registers: 

(XFRADR) >A 

(QINPUT) > Q 

(PR0DIF) > I 



/ — s 
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where 

a) (XFRADR) = core location for legal transfer address of 
programs or = -0 if no legal transfer address is indicated. 

b) (QINPUT) = if ldader Operation terminated due to E0L 
input block or = core address for monitor control statement 
if operation terminated by the occurrence of such a 
statement in the Loader input. 

c) (PR0DIF) = word length of command sequence placed on mass 
storage during Loading Operation. This word count is 
zero if the space required for the programs read in by 
the Loader does not exceed the capacity of Load Time Core. 

In the event the Loader Operation was not terminated due to an un- 
recoverable error, (AINPUT) = 0. The A, Q & I registers will be 
set to the following values: 

> A 

(XFRADR) >Q 

(PR0DIF) ^ I 

4. A return jump is made to the monitor from LDXIT2. 

3=1.6.8 PR0GLD 

The sequence of code for this branch begins at the location whose 
name is prog Id. Upon entry at PR0GLD, the location QINP"T contains 
an address. Recorded at this address, the Loader expects to find 
the ASCII code for an "*'' followed by up to 7 characters, the last 
of which must be a space or a carriage return. 

PR0GLD uses the SCAN routine (see item 28.8.1) to extract the program 
name from the storage area. In order to do this the location WRDCNT 
is set up as a character reference counter which means that - 

1. Bits 1-15 of WRDCNT reference the word containing a character, 
and 

2. Bit of WRDCNT is to reference the right character of the 
right character (lists 0-7). 

Therefore, prior to entering SCAN, WRDCNT is set to reference the 
2nd character in the storage area whose starting address is contained 
in QINPUT: 

(QINPUT)*2-tl >WRDCNT 

also prior to entering SCAN, - 

>SCANSW & 

^ A register. 
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Upon return from SCAN, the 3 locations SYMSTR, SYMSTR+1, & SYMSTR+2 
contain the ASCII code for up to 6 characters, and the location (INPREL) 
contains a terminating character for the name. If the name has fewer 
than 6 characters, the unused character positions at the right end of 
the storage area SYMSTR to SYMSTR+3 are space filled. 

Upon return from SCAN a search is made of the Loader Table for this 
name using the TABSCH routine. (See item 28J8.5.) If this name had 
been found in the Loader Table a jump is made to the TABCHK loop in 
the code concerned with loading subroutines from the library. If this 
name is in the Loader Table as an external, it will automatically be 
loaded from the Library as a subroutine. If this name appears in the 
Loader Table as an entry point, it is assumed that the appropriate rou- 
tine containing this entry point has been read in. On the other hand, 
if upon return from TABSCH, the name has not been found in the Loader 
Table, a Loader Table entry is made using the TABSTR routine (see item 
28.8.6) in which this name is entered as an external. A jump is made 
to SUBRLD and the process continues as if it were a subroutine load 
operation. (See item 28.6.6.) 

In order to search the loader table for this name, prior to entering the 
TABSTR routine, the location INPCTR must be set such that - 

"SYMSTR" > INPCTR 

If, upon return from TABSCH, the name has not been found - 
(SW6)^0, 

otherwise the address of the entry containing the name - 
(TABLIM) + (SW6) 

When entering this name in the Loader Table as an external, the following 
locations must be set: 

"SYMSTR" - — > INPCTR 

-0 > LINK 

$7FFF— > ENTPNT 
-1— >SW6 

If upon return from SCAN, the location INPREL does not contain a legal 
terminator such that - 

(INPREL) ^ ASCII code for space, or 

(INPREL) f= $FF indicating carriage return, 
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an error condition exists. This is regarded by the Loader to be the 

same as an unpatched external. An error indication of "ElO" is 

given using the PRINT3 set to the address in QINPUT, and a cancel 

character = $7F is inserted into bits 8-15 of ((QINPUT)). Using 

the LDRIV routine (see item 28.7.4), the 6 character name and the illegal 

terminator are printed on the list device. The locations SW4 and 

SW5 are set - 

"SW4B" ^SW4 & "SW5B" >SW5. 

A jump is made to a location in the TABCHK loop to further check the 
Loader Table for unpatched externals. This process has already been 
described in item 28.6.6.5. 



316.9 Exit from PROGLD 



Once the legality of illegality of the input to PROGLD have been 
established, the Loader Operation continues as if it were a sub- 
routine load operation. This was already indicated by item 28.6.8 
Therefore, the exit procedure by which a return to the monitor is 
made, is that described by item 28.6.7. Exit from SBLOAD. 



3^6.10 MAPS 



The sequence of code for this branch begins at the location whose 
name is MAPS. A memory map consists of a listing of the contents of 
each loader table entry which contains an entry point name and an 
entry point address. Tt will be necessary to transfer an entry point 
name to the line-of-print buffer. The entry point address which con- 
sists of a 15 bit number must be converted to the ASCII code for 4 
hex digits before it can be stored in the line-of-print buffer. The 
routine to cause this conversion has as its entry point a location named 
C0NVRT. 

The format for a line of print is as follows: 

ENTRY POINT TABLE: 

SSSS***CQMSSHHHH 

SSSS***DATSSHHHH 

SSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSSXXXXXXSShhhhSSSS 

etc. 

where: 

each "X" represents an alphanumeric character, 

each "h'' represents a hexadecimal digit, 

each "S" represents a space, and 

the address for an entry point name appears immediately to 
the right of the name. 
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The line M SSSS***C0MSShhhh" is printed to indicate the Common Storage 
Relocation Base, and is omitted if there is no common storage block 
reservation. The line "SSSS*** DATSShhhh" is printed to indicate the 
Data Storage Relocation Base and is omitted if there is no data stor- 
age block reservation. An entry point name in the Loader Table will 
not be printed if either - 

(1) It appears in a duplicate Loader Table entry, or 

(2) It is an entry point name from the Table of Presets and 
no program had been loaded containing an external which 
references this name. 

If the above condition 1 exists, it is detected by the fact that 
W0RD3 from a duplicate Loader Table entry for an entry point name 
contains a 0. If the above condition 2 exists, it is detected by 
the fact that there is a sign bit of 1 in W0RD2 of a Loader Table 
entry meaning that this is an entry point name from the Table of 
Presets. This sign bit will be made when a program is loaded which 
contains an external which references this entry point name. 

With respect to vertical spacing, 4 rows preceed and follow the 
heading. The lines of print are single spaced. A line of print 
contains up to 4 entry point names and addresses. If fewer than 4 
appear on a line, the right end of the line-of-print buffer is 
filled with spaces. The output device for producing memory maps 
is the standard list device. 

3^6.11 Exit from MAPS 

Exit from MAPS is made as follows: 

1. The location $EE contains the address for returning from 
the Loader to the monitor. This address is stored in the 
second word of a 2 word jump instruction using absolute 
addressing. The label assigned to the 1st of the 2 loca- 
tions containing this instruction is LDXIT3. 

2. If the loading operation did not involve Load-and-Go input, 
the location $E4 contains a zero. If ($E4) 0, its ori- 
ginal value contained in E4SAVE is restored to it. 

3. The exit parameters are placed in the A, Q & I register as 
follows: 

-0 — ^ A 

0— *Q 

-0 ^ I 

4. A return jump to the monitor is made from LDXIT3. 



L. 
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3^.6.12 Subroutines Used by and Internal to BRANCH 

There are two subroutines used by and internal to the BRANCH sub- 
program: 





1. 


LIMSET 




2. 


GETADR 


6.12.1 


LIMSET 





o 



The purpose of the LIMSET subroutine is to set the new temporary 
limits of unprotected core. Within the LIMSET routine, the A & Q 
registers are set to the limit addresses, and a core request is 
issued in order to record these addresses in the locations $EC and 
$ED. The limit address supplied for this core request are as follows 

1. The lower limit which is placed in the Q register is equal 
to the last execution time storage address for the command 
sequence read in during this Loader operation. 

(CSQLIM) - 1 — > Q reg. 

2. The upper limit address is either the upper limit of unpro- 
tected core or the relocation base for common storage - 

a. The upper limit address is the top of unprotected 
core if there is no Common Storage Block Reservation. 

If (COMBAS) =0 

(COMLIM)— *-A reg. 

b. If there is a Common Storage Block Reservation, the 
upper limit address for the Core Request is the reloca- 
tion base for common storage - 

If (COMBAS) ^ i 

(COMBAS) -4 A reg. 

The LIMSET routine is entered with a return jump to the location 
whose label is LIMSET. Exit from the LIMSET routine is with a 
jump to the address placed in the location LIMSET upon entry to 
the routine. 



3^6.12.2 GETADR 



The GETADR subroutine is entered by a return jump to the location 
whose label is GETADR. The GETADR subroutine will search the Loader 
Table for a name to match the transfer name which appeared in the 
last XFR block read by the Loader. The transfer name contains up 
to 6 characters and is stored at XFRNAM, XFRNAM-1 & XFRNAM+2. 
The transfer name is legal if - 

a. A Loader Table entry contains a name to match this 
transfer name, and - 

b. the address in W0RD4 of this Loader Table entry is 
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an entry point address. 

I f __t he transf er name is le ga l , the entr y point address from the 

Loader Table entry is placed in the location XFRADR. The transfer 
name is illegal if either - 

a, There exists no Loader Table entry which contains 
a name to match this transfer name, or - 

b. the address in W0RD4 of this Loader Table entry is not 
an entry point name. 

If the transfer name is illegal, a value = -0 is placed in the 
location XFRADR. An exit is made from the GETADR subroutine by a 
jump to the address placed in the location GETADR upon entry. 

3 C 16.13 Subroutines Used by and External to BRANCH 

Subroutines used by and external to the BRAN' rt subprogram are as 
follows: 

PRINT3 

PR INT 4 ,-"n 

PRINT 5 V_J 

TABSCH 

TABSTR 

SCAN 

CONVRT 

CDRIV 

MDRIV 

LDRIV 

LOADER 

DPRADD 

3^6.13.1 PRINT3 (See item 28.8. 7. 1. ) 

PRINT3 is used for printing error messages on the list output device. 
Prior to entering PRINT3, the ASCII code for the error message is 
placed on the A register. The information placed in the A register 
consists of either 2 characters of 1 character followed by a space. 
Entrance is made to the PRINT3 subroutine with the following instruc- 
tion: 

LABEL OPCODE ADDRESS REMARKS 

EQU PRINT3(114) 

RTJ- PRINT3,I 

The output device used by the PRINT3 subroutine is the standard list ^-^ 

device for the System. This is the device whose equipment table (^_ 

ordinal appears in the communication region address $FD. 

3^.6.13.2 PRINT4 (See item 28.7.3.) 

The PRINT4 routine is used by MAPS to print the names and relocation 
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bases for common and/or data storage reservation while listing the 
entry point table. Prior to entering the PRINT4 subroutine, the A 
register is set to the binary value for the address to be printed and 
the Q megister is set to the 1st word address of the output area. 
(The PRINT4 subroutine will cause the value in the A register to be 
converted to the ASCII code for 4 hex digit and recorded in the out- 
put area.) The PRINT4 subroutine is entered by execution of the 
following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EQU PRINT4(154) 

RTJ- PRINT4,I 

The output device used by the PRINT4 subroutine is the same as that 
used by PRINT3 (item 28.10.12.1). 

3T.6.13.4 TABSCH (See item 28.8.5) 

Given the storage area for a 6 character name, the TABSCH subroutine 
is used to search for this name in the Loader Table. Prior to 
entering the TABSCH subroutine, the location INPCTR is set to the 
1st word address of storage for the given 6 character name. Upon 
exit from TABSCH - 

a. if no Loader Table entry had been encountered with a name 
to match the given name, then - 

(SW6) _ 0, or 

b. If a Loader Table entry with a matching name had been located, 
then - 

(SW6) _ 0, and 

(TABLIM)~(SW6) = 1st word address of this loader table 
entry 

Entry to TABSCH is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EQU TABSCH(IOO) 

RTJ- TABSCH, I 

3^6. 13. 5 TABSTR (See item 28.8.6) 

The TABSTR routine is used to enter a name and address into the Loader 
Table. Prior to entering the TABSTR routine - 

a. the location INPCTR is set to the 1st word storage address 
of a given 6 character name, 

b. the location ENTPNT contains the address for this name, 

c. the location LINK is set to a -0 if this is the 1st Loader 
Table entry for this name (or, if not, LINK is set to the 
address of word 3 of a previous Loader Table entry containing 
this name), and 
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d. the location SW6 is either - 

1. set to zero if the given name is an entry point, or 
2~. set - to a -0 — if - the given name is an external". 

3^6.13.6 SCAN (See item 28.8.1) 

The SCAN subroutine is used by the BRANCH subprogram during a program 
load operation. SCAN is used to extract a name from the storage 
area. The 1st character of the storage area occurs in the left half 
of the 1st word and is assumed to be the character *. The second 
character of the storage area is in the right half of the 1st word 
and is. assumed to be the 1st character of the name. Therefore, the 
location used as the character reference counter, WRDCNT, is set 
as follows - 

1. bits 1-15 contains the 1st word address of the input area, and 

2. bit is set to a 1 to reference the right half of the 1st 
word. 

Upon return from SCAN, the locations SYMSTR, SYMSTR-H, and SYMSTR+2 
contain up to 6 characters for the name. The terminal character is , 
stored in the right half of the location INPREL. If the name con- 
tains fewer than 6 characters, the unused character positions in 
SYMSTR to SYMSTR+2 are filled with spaces. If the name contains 6 
characters or more, the location INPREL contains the 7th character 
of the input area as the termination character. 

The SCAN subroutine is entered by execution of the following instruc- 
tion: 



LABEL 



OPCODE 

EQU 
RTJ- 



ADDRESS 

SCAN(146) 
SCAN , I 



REMARKS 



3*^6.13.7 CONVRT (See item 28.8.4) 

The CONVRT subroutine is used by MAPS to convert a 16 bit binary num- 
ber to the ASCII code for hex digits. The 16 bit number to be converted 
is the entry point address from a Loader Table entry. Prior to 
entering CONVRT, the binary number is placed in the A register. 
Upon return from SCAN, the locations BINASC and BINASC+1 contain 
the ASCII code for the 4 hexadecimal digits. 

CONVRT, is entered by execution of the following instruction. 

LABEL OPCODE ADDRESS REMARKS 



EQU 
RTJ- 



CONVRT(150) 
CONVRT, I 



NOTE: This subroutine is also used by PRINT4. 
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3^.6.13.8 CDRIV (See item 28.7.2) 

CDRIV is the subroutine used for 1/0 operations on the typewriter. 
Prior to entering the CDRIV routine, the A register is at the 1st 
word address of the storage area, and either - 

1. the Q register is set to the number of words for a write 
operation, or - 

2. the Q register is set to zero for a read operation. 

Entrance to the CDRIV subroutine is made by execution of the follow- 
ing instruction - 

LABEL OPCODE ADDRESS REMARKS 

EXT* MDRIV 

RTJ MDRIV 

3 ^6.13.9 MDRIV (See item 28.7.3) 

MDRIV is the subroutine used for 1/0 operations on a mass storage 
device. Prior to entering MDRIV, the A register is set as follows: 

1. (A) = starting address if the device to be used is the mass 
storage unit containing the scratch area. 

2. (A) = one's complement of the starting address if the device 
to be used is the mass storage unit containing the Program 
Library. 

Also, prior to entering MDRIV, the Q register is set as follow;,: 

1. (Q) = number of words if the operation is to read. 

2. (Q) = one's complement of the number of words if the operation 
is to write. 

Entry to the MDRIV routine is by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

EXT* MDRIV 

RTJ MDRIV 

3^6.13.10 LDRIV 

LDRIV is the subroutine which is used for output on the standard list 
device for the system. Prior to entry to LDRIV, the A register is 
set to the starting address and Q to the number of words for the output 
.—. operation. Entry to LDRIV is made by execution of the following 

( ) subroutine: 
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LABEL 



OPCODE 

EXT* 
-RTJ 



ADDRESS 

LDRIV 
-LDRIV 



REMARKS 



3CI.6.13.11 LOADER (See item 29.1) 



LOADER is the common subroutine used by RBLOAD, SBLOAD, and PROGLD 
to perform the functions of reading and processing relocatable 
binary input blocks. Entry to LOADER is made by execution of 
the following instruction: 



LABEL 



OPCODE 

EXT* 
RTJ 



ADDRESS 

LOADER 
LOADER 



REMARKS 



3^.6.13.12 DPRADD (See item 28.8.11) 

DPRADD is the subroutine which computes the absolute value of the 
starting sector number for an I/O operation using a mass storage 
device. Prior to entering the DPRADD routine - 

1. Bits 0-14 of A contain a 15 bit number which is the rela- 
tive of the starting sector number. 

2. Bits 0-14 of $E4 contain the relative value of the sector 
/number (in the scratch area) which is the end of the load- 

and-go input. 

3. The locations $C0 and SCI contain the absolute value (30 
bits) of the 1st sector number in the scratch area as 

/ follows: 

a. The most significant half of the number is in bits 0-14 
of $C0, and 

b. The least significant half is in bits 0-14 of $C1. 

Upon return from DRPADD, the absolute value of the starting sector 
number for the I/O operation is recorded in bits 0-14 of SECTNO 
(most significant half) and in bits 0-14 of SECTNO+1 (least signi- 
ficant half). This number is obtained by the following addition: 

(A register) + ($E4) + ($C0,$C1) 
Entry to DPRADD is made by execution of the following instruction: 
LABEL OPCODE ADDRESS REMARKS 



EQU 
RTJ- 



DPRADD(200) 
DPRADD, I 
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3^.7 1/0 FOR LOADER OPERATIONS 

There are four routines used by the Loader for 1/0 operations. Each 
of these routines is entered with a return jump to it.s 1st word 
address. The name given to the 1st word address of each routine is 
declared as an entry point name for that routine. Also, the entry 
point name for the routine is referenced as an external within the 
subprogram elsewhere in the Loader requiring the use of this routine 
for 1/0. 

Routines used for 1/0 operations expect in input parameters such 
information as the starting address, number of words, starting sector 
if the device is mass storage, etc. These input parameters are 
passed to each of these routines through the A register, the Q 
register, the I register and certain prescribed locations in the 
constant table. A routine used by the Loader for 1/0 will insert 
each of these parameters into the appropriate spots within a para- 
meter list. The format of this parameter list is that used for a 
formal 1/0 request, and it is headed by a return jump instruction: 

RTJ- (10) 
EQU I0($F4) 

There are four routines used by the Loader for 1/0 operations. These 
entry point names are as follows: 

IDRIV 
CDRIV 
MDRIV 
LDRIV 

3^7.1 IDRIV 

The routine whose name is IDRIV is used to read either ASCII or 
binary formatted records from the input device. The binary records 
are those of the relocatable binary format produced by the 1700 
Assembler . 

3^7.1.1 Constant Table Storage Referenced by IDRIV 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

BININP 193 

INPLUN 175 

PR0SEC 194 

The constants are used as follows: 

1. BININP contains the starting address for a read opera- 

tion using the input device. 

2. INPLUN is the name given to the 1st of 2 sequential 

locations which contain information pertaining 
to the logical unit number of the input device. 
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3. PROSEC is the name given to the 1st of two locations 
which contain a sector number for the read 
operation. This is ignored if the input medium 



31 



is not the mass storage device. 
7.1.2 Communication Region Constants Used by IDRIV 
CONSTANT LOCATION 



$7FFF 
$8000 

31.7.1.3 Entry to IDRIV 



$42 = MASK1 
$21 = MASK2 



The input parameters to IDRIV are as follows: 

1. If (A) is positive, the mode is ASCII, and (A) represents 
the starting address. If (A) is negative, the mode is 
binary, and (A) represents the one's complement of the 
starting address. 

2. The information pertaining to the logical unit number for 
the input device is stored at the 175th and 176th locations 
in the constant table. The names for these locations are 
INPLUN and INPLUN+1. 

3. If the input medium is the mass storage device, PROSEC and 
PROSEC+1 contain the sector number for the record to be 
read. 

Entry is made to IDRIV with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 



EXT* 
RTJ 



IDRIV 
IDRIV 



31.7.1.4 IDRIV I/O Request 
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The input parameters for the 1/0 requests are handled in the following 
way : 

1 . Starting Address 

If (A) is positive upon entry to IDRIV, the contents of the 
A register is recorded as the starting address. If (A) 
is negative upon entry to IDRIV, the one's complement of 
the A register is recorded as the starting address. The 
starting address is recorded in the location specified by 
the S. parameter in the calling sequence. 

2. Word Count 

Since IDRIV is used primarily to read relocatable binary 
records produced by the 1700 Assembler, the value 60_ 
will be placed in the parameter list for the I/O request 
as the N parameter. The value 60 represents the maximum 
size record that can be read from the input device. 
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If -CA} is positive upon entry to IDRIVt the M para- 
meter in the calling sequence is set for the ASCII 
mode of operation. If -CA> is negative upon entry 
to IDRIVi the N parameter is set for the binary 
mode of operation. 

4. Logical Unit Number 

The information for the logical unit number by 
which the input device is referenced is taken from 
the constant table and inserted as parameters into 
the calling sequence. The contents of INPLUN is 
inserted as the L parameter and the contents of 
INPLUN+1 is inserted as the A^ parameter. 

Prior to issuing the I/O requestn the completion flag 
IFLAG is initially set to a 3 bit value of DDL The 
location in the parameter list reserved for the thread 
-[label = THREAD]- contains a zero. The I/O request is 
issued by execution of the instruction preceding the 
parameter 1 ist - 

RTJ- -CIO 

Once the operation is initiated! the location THREAD 
is set non-zero. The IDRIV routine- will wait in a loop 
until completion occurs. Uhi le the input operation is 
in progressn the location THREAD remains at a non-zero 
value. Upon completion of the operation THREAD is 
reset to a zero value. AIsot IFLAG is set to a 3 bit 
value which reflects the state of the input operation 
upon its completion. 

Upon completion of the input operation a status request 
is made. As a result of this status requesti bits M-1D 
of the Q register will indicate whether the input device 
was or was not a mass storage unit. If the device had 
been a mass storage unitn the 3D bit sector number stored 
in PROSEC and PROSEC+1 would have been increased by 1. 

If the Loader is loading from the Program Library t then 
INPUT+Sfl and INPUT+ST contain the next sector address 
of the present program. Both LIBEDT and the SYSTEM INI- 
TIALIZER insert a thread into each block on the Program 
Library to allow available sectors to be used as effic- 
iently as possible. Thusn a program need not be on con- 
tiguous sectors in the Program Library. The next sector 
address is saved in PROSEC and PROSEC+L then the last 
three words of the input block are cleared to zero before 
returning to the caller. 
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Alson as a result of this status requestn the A register 
will contain the information pertaining to the hardware 
status - T his i nfo rmation will be r ecorde d at a l o cati on 



STATUS+1. Ifn upon completion of the input operationn 
bit 2 of the location IFLAG is a Di the operation is 
regarded as being error free- 

The A register is set to a minus zero value n and a jump 
is made to the exit from IDRIV. 

Ifn upon completion of an input operation bit ? of the 
location IFLAG is a In the input operation was terminated 
due to error. In this case-. IDRIV looks at bit *\ of the 
hardware status information stored at STATUS+1. If bit 
^=01 it is assumed that an unrecoverable error condition 
such as parity exists as a result of the read operation. 
The A register is set to a On and a jump is made to exit 
from IDRIV. If bit "] / d an error condition due to 
motion failure has occurred. The A register is set to 
+1 to indicate the alarm condition and a jump is made 
to the exit from IDRIV. 
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317.1.4 Exit from IDRIV 

Exit from IDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (IDRIV) 

3^.7.2 CDRIV 

The routine whose name is SCRIV is used for either input or output 
operations on the communication device. 

31 7.2.1 Entry to CDRIV 

The input parameters to CDRIV are as follows: 

1. The A register contains the starting address. The A 
register is always assumed to be positive by the CDRIV 
routine. 

2. The word count is in the Q register if CDRIV is to perform 
an output operation. The Q register is otherwise zero. 

Entry to CDRIV is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT- CDRIV 

RTJ CDRIV 

3^7.2.2 CDRIV I/O Request 

The input parameters for the CDRIV requests are handled in the follow- 
ing way: 

1. Starting Address 

The starting address in the A register is recorded in the loca- 
tion specified by the S parameter of the calling sequence. 

2. Request Code 

If the Q register is now zero, the request code is in the 
calling sequence is set for an output operation. If the Q 
register is zero, the request code is set for an input opera- 
tion. 

3» Word Count 

If the Q register is non zero, it is assumed by CDRIV to be 
positive. The value in the Q register is then inserted into 
the parameter list in the calling sequence as the N para- 
meter. If the Q register is zero, a value of 60 is inserted 

into the parameter list as the N parameter. 
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Prior to issuing the I/O request, the completion flag CFLAG is set to 
a 3 bit value of 001. The location in the parameter list reserved for 
the thread (label = THREAD) contains a 0. The I/O request is issued 
by-execut-ion-of— the— ins true tion-which-preceeds-the-parameter_list_!= 

RTJ- (10) 

Once the operation begins, the location THREAD is set to a non zero 
value. The CDRIV routine will wait on a loop until completion occurs. 
While the I/O operation is in progress, the location THREAD will re- 
main at a non zero value. Upon completion of the operation, the 
location THREAD will be reset to zero. Also, upon completion of the 
I/O operation, the location CFLAG is set to a 3 bit value which 
reflects the state of the I/O operation upon its completion. 

If the operation was for output, the status is ignored. The A register 
is set to a minus zero value, and a jump is made to the exit from 
CDRIV. If the operation was for output, bit 2 of the location CFLAG 
will be zero if the operation is error free. The A register will be 
set to a minus zero, and a jump will be made to the exit from CDRIV. 
If bit 2 of the location CFLAG is a 1, theoperation was terminated 
due to an unrecoverable I/O error. The A register will be set to a 
zero, and a jump will be made to the exit from CDRIV. 

3^.7.2.3 Exit from CDRIV 

Exit from CDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (CDRIV) 

3 C L7.3 MDRIV 

The routine whose name is .iDRIV is used for either input or output 
operations on the mass storage device. , 

3^]. 7.3.1 NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

START 172 

START is the location which contains the starting address for the 
mass storage I/O. 

3^7.3.2 Communication Region Constants Used by the MDRIV Routine 

CONSTANT LOCATION 
$8000 $21 = MASK2 

33.7.3.3 Entry to MDRIV 

The input parameter to MDRIV are as follows: 

1. The A register contains the starting address. The A 
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register is positive if the device used is the mass storage 
unit containing the scratch area. The A register is nega- 
tive if the device is the mass storage unit containing the 
Program Library. If (A) is negative, the one's complement 
of (A) is the starting address. 

2. The Q register is positive if the 1/0 operation is for reading 
from mass storage, and it is negative if the operation is for 
writing. The absolute value for the Q register represents 
the word count. 

3. The locations SECTNO & SECTN0+1 contain the double precision 
number of 30 bits for the starting sector. The least signi- 
ficant half is stored in SECTNO+l , and the most significant 
half in SECTNO. 

Entry to MDRIV is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT* MDRIV 

RTJ MDRIV 



(J) 31. 7.3.4 MDRIV 1/0 Requests 



o 



The input parameters for the 1/0 requests are handled in the following 
way: 

1. Starting Address 

The starting address in the A register is recorded in the 
location specified by the S parameter in the calling sequence, 
If (A) is negative, the one's complement of A is recorded. 

2. Request Code 

If Q is positive, the request code is set for a read opera- 
tion. If Q is negative, the request code is set for a write 
operation. 

3. Word Count 

If Q is positive, the value in Q is stored in the parameter 
list of the calling sequence as the N parameter. If Q is 
negative, the one's complement of the value in Q is recorded 
as the N parameter. 

Prior to issuing the 1/0 request, the location in the parameter list 

reserved for use as a thread (label = THREAD) contains a zero. The 

I/O request is issued by execution of the instruction preceding the 
parameter list - 
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RTJ- (10) 

Once the operation begins, the location THREAD is set to a non-zero 
value". The - MDRIV - routine _ will — wait - in""a — roop-until^completion - occur sr 

While the I/O operation is in progress, the location THREAD remains 
at a non zero value. Upon completion of the operation, the location 
THREAD is reset to 0. Also, upon completion of the operation, a 
jump is made to the exit from MDRIV. 

3=1.7.3.5 Exit from MDRIV 

Exit from MDRIV is made by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (MDRIV) 

3*1.7.4 LDRIV 

The routine whose name is LDRIV is used for output on the list 
device. 

3?J.7.4. 1 Entry to LDRIV 

The input parameters to LDP TV are as follows: 

1. The A register contains the starting address. The A 
register is assumed to be positive by the LDRIV routine. 

2. The Q register contains the word count. The Q register is 
assumed to be positive by the LDRIV routine. 

Entry is made to LDRIV with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 

EXT* LDRIV 

RTJ LDRIV 

3*1.7.4.2 LDRIV I/O Requests 

The input parameters for the 1/0 request's are handled in the following 
way : 

1. Starting Address 

The starting address in the A register is inserted into the 
address specified by the S parameter in the calling sequence. 

2. Word Count 

The word count in the Q register is inserted into the para- 
meter list of the calling sequence as the N parameter. 
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Prior to issuing an 1/0 request, the contents of the location in the 
parameter list word reserved for use as a thread (label = THREAD) 
contains a zero. The 1/0 request is issued by execution of the 
instruction which preceeds the parameter list - 

RTJ ($F4) 

Once the operation is initiated, the location THREAD is set to a 
non zero value. The LDRIV routine will wait in a loop until comple- 
tion occurs. While the I/O operation is in progress, location THREAD 
reamins at a non zero value. Upon completion of the operation the 
location THREAD is reset to zero. Also, upon completion of the opera- 
tion, an exit is made from the LDRIV routine. 

318.4.3 Exit from LDRIV 

Exit is made from LDRIV by execution of the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP* (LDRIV) 

3CJ.8 SUBROUTINES ACCESSED VIA CONSTANT TABLE 

The last paragraph of item 28.5.2.1.1 descriges how a subroutine may 
be accessed from any other routine in the loader with a return jump to 
a location in the constant table. The subroutines accessed in this 
manner are as follows*. 

SCAN 

CHPU 

ADJOVF 

CONVRT 

TABSCH 

TABSTR 

PRINT3 

PRINT2 - STOP 

PRINT4 

PR INT 5 

LINK1 

LINK2 

COREXT 

DPRADD 

318.1 SCAN 

The SCAN subroutine is used to extract a single element from an 
input block containing ASCII data. There are four types of elements 
contained in an input block. 
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1. Alphanumeric name, 

2. Hexadecimal numbers, 

3. Decimal numbers, 

4"i — Null - elements^ 



31.8.1.1 Constant Table Storage Referenced by SCAN 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

WRDCNT 24 

COUNT 1 25 

SCANSW 22 (bits 0-3) 

SYMSTR 19-21 & bits 4-15 of 22 

BLKCNT 27 

INPWRD 10 

INPREL 11 

BLANKS 18 

NEGSW 9 

Constant Storage is used as follows: 

1. WRDCNT is used as a character reference counter. Prior 

to entering the SCAN subroutine, bits 1-15 of 
this location must be set to the storage address 
for the 1st character of a field to be extracted. 
Bit is set to a zero if the 1st character occurs 
in the left half of the word and to a 1 if the 
1st character is in the right half. 

2. C0UTN1 is used as a character counter. It is set to 

the one's complement of the maximum number of 
characters in a particular type of field may 
have. 

3. SCANSW bit settings are as follows: 

a. If bit of SCANSW is set to a and the 
field being processed by SCAN contains a 
numeric operand, the number will be processed 
as a decimal number unless it is preceded by 
an "$ M . The number will then be processed 
as a hexadecimal number. If bit of SCANSW 
is set to a 1 and the field being processed 
contains a numeric operand, the operand is 
processed as a hexadecimal number whether or 
not it is preceded by a ''$". Bit of SCANSW 
may be referred to elsewhere in the documenta- 
tion by the name HEXSW. However, this name 
is not used in the coding for SCAN. 
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SYMSTR 

SYMSTR+1 

SYMSTR+2 



BLKCNT 



6. INPWRD 



7. INPREL 



8. BLANKS 

9. NEGSW 



o 



b. The field being processed by SCAN may have 
a leading algebraic sign of "+" only if 
bit 1 of SCANSW is set to a 1. 

c. The field being processed by SCAN may have 
a leading algebraic sign of "-" only if bit 
2 of SCANSW is set to a 1. 

d. If the field being processed contains a 
numeric operand, SCAN will convert the ASCII 
code to a binary number. In addition, if 
bit 3 of SCANSW is set to a 1, the ASCII code 
for the digits of the numeric operand will 

be extracted from the input block. 

is set to the ASCII code for the characters in 
the field being processed by SCAN. If the field 
contains a numeric operand, the location SYMSTR 
is set to zero. If bit 3 of SCANSW=1, the locations 
SYMSTR+1, SYMSTR+2 and bits 8-15 of SCANSW 
contain the ASCII code for the digits of the 
numeric operand. 

is set by SCAN to reference character positions 
in the block of words reserved for SYMSTR. Bits 
1-15 are set to the address at which a character 
is to be stored. The character is stored in the 
left half of the word if bit is set to a 0. 
The character is stored in the right half of the 
word if bit is set to a 1. 

is set by SCAN to the binary value of a numeric 
operand after its conversion from the ASCII code. 
(If the operand is not numeric; i.e., (SYMSTR) ^ 
the contents of INPWRD will be set to zero.) 

is set by SCAN to the ASCII code for the character 
terminating the field being processed. The char- 
acter is stored in bits 0-7 while bits 8-15 are 
set to zeros. 

contains the ASCII code for 2 spaces = $2020. 

is set to a -1 if the operand in the field being 
processed is preceded by a legal leading algebraic 
sign of "-". It is set to a +1 if the operand 
is preceded by a legal algebraic sign of "+". 
It is set to if the operand contains no legal 
leading algebraic sign. (A leading algebraic sign 
of "-" is legal if bit 2 of SCANSW=1, and that of 
"+" is legal if bit 1 of SCANSW=1. 
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31.8.1.2 Entry to SCAN 

Prior to entry to SCAN, the 24th location of the constant table should 
be set to reference the field to storage position for the 1st character 
in storage of the field to be processed. The entire A register should 
be set to zero, or bits 8-15 set to while bit 0-7 contain the 
ASCII code for a character. Entry is made to SCAN by execution of 
the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- SCAN 

EQU SCAN(144) 

The location in the constant table, NEGSW is set to zero. The 
locations SYMSTR, SYMSTR+1 and SYMSTR+2 are backrounded to the 
ASCII code for spaces. The constant $2020 is added to the contents 
of the location SCANSW and the sum replaces the contents. 

If A is zero upon entry, the SCAN routine references storage for the 
1st character in the field according to the contents of the location 
WRDCNT. If A is non zero (as described above), the SCAN routine will 
process bits 0-7 of the A register as the leading character of the 
field and reference storage for the second character. 

31.8.1.3 Processing a Field Containing a Name 

An alphanumeric name may contain a maximum of 6 characters. The 
characters from which a name may be composed are the alphabetics 
A-Z and the numerics 0-9. The leading character of a name must be 
** S * 1 *' one of the alphabetics A-Z. The last character of a name must be 

followed by one of the chara> ters used as a terminator. This is any 
non-alphabetic character. 

Upon exit from the SCAN subroutine thename is placed in the locations 
SYMSTR to' SYMSTR+2. These locations are ordinals 19-21 within the 
constant table. If fewer than 6 characters are contained in the name, 
each of the unused character positions at the right end of the name 
is filled with the ASCII code for a space. The terminating character 
is stored in bits 0-7 of the location INPREL. 

If there is excess number of characters, the locations SYMSTR to 
SYMSTR+2 contain the first 6 characters. Bits 0-7 of the location 
INPREL contain the 7th character. A transfer is made to the exit 
from SCAN. 

31.8.1.4 Processing a Field Containing a Hexadecimal Number 

A hexadecimal number contains a maximum of 4 hexadecimal digits. The 
characters from which a hexadecimal number may be composed consists 
of the number 0-9 and/or the letters A-F. Either a "$" must precede 
the hexadecimal number, or bit of the location SCANSW must be a 1 
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upon entry to the SCAN subroutine . If neither of these conditions 
exists, then the following occurs: 

1. If the first character of the element is one of the alpha- 
betics A-F, the element will be processed as if it were an 
alphanumeric name. The terminating character will be either 
a non alphanumeric character or the 7th character of the 
name, whichever occurs sooner. (Refer to item 28.8.1.3.) 

2. If the first character of the element is one of the numerics 
o-9, the element will be processed as if it were a decimal 
number. The terminating character will be either a non 
decimal digit or the 6th digit of the number. (Refer to 
item 28.8.1.5.) 

Upon exit from the SCAN subroutine, the location SYMSTR is set to 
zero, the location INPWRD contains the binary value for the hexadecimal 
number and the bits 0-7 of the location INPREL are set to the ASCII 
code for the terminating character. The terminating character is 
either the 1st non hexadecimal character of the field or the 5th 
hexadecimal digit of the numeric operand. If the number is preceded 
by a "-", the one's complement of this binary number is placed in the 
, location INPWRD. If bit 3 of SCANSW=1, the locations SYMSTR+1, 

W SYMSTR+2 and SCANSW are filled with the ASCII code for a dollar sign 

and followed by up to 4 hex digits for the numeric operand. 

The terminating character for a hexadecimal number is either a character 
which is not a hexadecimal digit of the 5th hexadecimal digit in the 
number, which ever is first to occur. 

If there is an excess number of digits, the location SYMSTR is set to 
zero, the location INPWRD will be set to the binary value of the 
hexadecimal number and the last character processed will be in bits 
0-7 of INPREL. A transfer will be made to the exit from SCAN. 

3«^8.1.5 Processing a Field Containing a Decimal Number 

A decimal number contains a maximum of 5 decimal digits. The char- 
acters from which a decimal number may be composed consists of the 
number 0-9. The terminating character for a decimal number may be 
non decimal digit. Upon exit from the SCAN subroutine the location 
SYMSTR is set to zero, the location INPWRD contains the binary value 
for the decimal number and bits 0-7 contain the ASCII code for the 
terminating character. If the number is preceded by a "-", the one's 
complement of the binary number is placed in INPWRD. The locations 
SYMSTR+1, SYMSTR_2 and the bits 8-15 of SCANSW will contain the ASCII 
code for up to 5 decimal digits if bit 3 of SCANSW=1. 



o 



The value 65535 should be the largest decimal number used as a numeric 
operand. The SCAN routine will convert this decimal number to a 16 
bit binary number of all ones (= hexadecimal number of $FFFF). A decimal 
number greater than 65535 will be truncated at its most significant 
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end when it is converted to binary. Only the 16 least significant 
bits will be recorded by the SCAN routine. 

Dec inia;l _ numbers"with— leading-algebraic— signs-are-processed-by-SGAN 

in the same manner as hexadecimal numbers with leading algebraic 
signs. 

31 8. 1-.6 Processing a Field Containing a Null Element 

If the leading character of an element is neither an alphabetic 
character nor a leading algebraic sign, the element is a null 
element. 

A transfer is made immediately to the eixt from SCAN with - 

1. The locations SYMSTR, SYMSTR+1 & SYMSTR+2 set to a value of 
$2020, 

2. The location INPWRD set to a value of 0, and 

3. Bits 0-7 of the location INPREL set to the ASCII code for 
non alphanumeric character (null element). 

318.1.7 Processing Fields With Leading Algebraic Signs 

Upon entry to SCAN, a leading algebraic sign in a field may be either 
the first character in storage (if A = 0), or it may be the character 
in bits 0-7 of the A register. 

An algebraic sign is a terminator if it is not at the beginning of 
a field. A leading algebraic sign of ''+" is legal only if bit 2 
of SCANSW=1. A leading algebraic sign of "=" is legal only if bit 1 
of SCANSW=1. An illegal leading algebraic sign acts as a terminator 
for a field which has no characters. An exit is made from SCAN with 
SYMSTR, SYMSTR-*- 1 & SYMSTR+2 filled with spaces, and with NGRLSW 
and INPWRD set to 0, The terminal character is in bits 0-7 of 
INPREL. 

3^8.1.8 Exit from SCAN 

An exit from SCAN is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- SCNXIT,I 

EQU SCNXIT(143) 

3^.8.1.9 Subroutines Used by and External to SCAN 

CHPU extracts 1 character from the input and stores it 

in INPREL- The character reference counter, WRDCNT, 
is increased by 1 prior to each return from CHPU. 
Entry is made to CHPU. Entry is made to CHPU with 
the following instruction: 
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LABEL 



b 



OPCODE 

RTJ- 
EQU 



ADDRESS 

CHPU, I 
CHPU(108) 



REMARKS 



3H8.1.10 Subroutines Used by and Internal to SCAN 

GETBIN receives the ASCII code for a digit and returns the 
4 bit binary equivalent in the accumulator. The 

NUMBER routine examines a character from the field. If the 
character is a digit between and 9, the ASCII code 
is placed in A and an exit is made. If HEXSW is set 
to 1 and the character is between A and F, the ASCII 
code is placed in A and an exit is made. If the char- 
acter is not a digit, A is set to -0 and a transfer 
is made to the exit. 

LETTER examines character from the field. If the character is 
alphanumeric, the ASCII is placed in A and a transfer 
is made to the exit. If the character is not alpha- 
numeric, A is made =0, and a transfer is made to 
the exit. 

STRCHR stores a character from a name or a number in the block 
of locations beginning with SYMSTR. BLKCNT, the char- 
acter storage reference counter is increased by 1 after 
the storage of each character. 

Each of the above subroutines is entered with a return transfer to 
the location whose name is the same as the subroutine name. Exit 
is made with a jump to the address in the entry point of the 
subroutine. 



5^.8.2 CHPU 

The CHPU subroutine is used to extract a single character from the 
input block containing the ASCII data. 

3^.8.2.1 Constant Table Storage Referenced by CHPU 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 







WRDCNT 
INPREL 

Constant storage is used as follows: 



24 
11 



1. WRDCNT is used as a character reference counter. 

2. INPREL is where the character is stored when it is extracted 

from the input information block by the CHPU routine. 
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3^.8.2.3 Entry ta CHPU 

Entry is made to the CHPU routine with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- CHPU, I 

EQU CHPU(108) 

Upon entry to CHPU, bits (1-15) of the location WRDCNT reference 
a core location. If bit of the WRDCNT is a zero, the left 
character (bits 8-15) in this core location is extracted and placed 
in bits (0-7) of the location INPREL. If bit of the WRDCNT is 
a one, the right character (bits 0-7) are extracted and placed in 
bits (0-7) of the location INPREL. The contents of WRDCNT is in- 
creased by 1 aid a transfer is made to the exit. 

3^8.2.4 Exit from CHPU 

Exit from CHPU is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- CHPXIT,I 

EQU CHPXIT(107) 

3S8.3 ADJOVF 

The ADJOVF is a subroutine which performs 15 bit address arithmetic. 
3^8.3.1 Constant Table Storage Referenced by ADJOVF 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

AHOLD 196 

QHOLD 197 

The locations ASAV and QSAV are used for storage of the A and Q 
registers respectively upon entry to the ADJOVF routine. 

33.8.3.2 Communication Region Constants Used by ADJOVF 

CONSTANT LOCATION 
$7FFF $42 = MASK1 

$8000 $21 = MASK2 

33.8.3.3 Entry to ADJOVF 

Prior to entry to the ADJOVF subroutine, the two operands for the 
address arithmetic are placed in the A and Q register. Entry to 
the ADJOVF subroutine is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

CA138 i RTJ- ADJOVF, I 

EQU ADJOVF (142) 
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3^.8.3.4 Address Arithmetic 

This subroutine is used primarily to add the relative value for a 
relocatable address to a relocation base. Upon entry to ADJ0VF, 
the A register contains the relocatable address in bits 0-14, and 
the Q register contains the relocation base. Bit 15 of A is not 
included in the address arithmetic. Upon exit from ADJ0VF, bits 
0-14 of the A register contain the 15 bit result for the address 
arithmetic together with the original setting for the sign bit. 

3^.8.5.3 Address Arithmetic for Positive Address Relocation 

The address arithmetic for positive address relocation is: 

relative value + relocation base = absolute value 

Address arithmetic for positive address relocation is performed if 
the Q register is positive upon entry to ADJ0VF. 

The sign bit of A is extracted, recorded and replaced with a 0. 
The A and Q registers are summed and the result is placed in A. 
Since this is 15 bit wrap around arithmetic, the sign bit of A is 
handled as if it were an end around carry in one's complement arith- 
metic. The result is in bits 0-14 of A. The original sign bit is 
inserted into bit 15 of A. A transfer is made to the exit from 
AD J0VF . 

3T.8.3.6 Address Arithmetic for Negative Address Relocation 

The address arithmetic for negative address relocation is: 

-(relative value + relocation base) absolute address 

Address arithmetic for negative address relocation is performed if 
the Q register is negative upon entry to ADJ0VF. Bits 0-15 of the 
A register are set to the one's complement of the relocatable 
address. 

The sign bit of A is extracted, recorded and replaced with a 1. 
The A and Q registers are complemented, and address arithmetic is 
performed in the manner described in the last paragraph of item 
28.8.3.5. The result in bits 0-14 of A is then recomplemented and 
the original sign bit is inserted into bit 15 of A. A transfer is 
made to the exit from ADJ0VF. 

3T.8.3.7 Exit from ADJ0VF 

Exit is made from the ADJ0VF subroutine with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- ADJXIT , I 

EQU ADJXIT (141) 
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3^.8.4 



3^.8.4.1 



CONVRT 

The CONVRT routine is used to replace a 16 bit binary number with 
"the - ASCII - code - for~4 — char act ers~repre sent ing~the — dig it s — of ~the 
equivalent hexadecimal number. 

Constant Table Storage Referenced by CONVRT 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 



3*38.4.2 



COUNT 1 
BINASC 
AHOLD 
HEX CODES 

Constant storage is used as follows: 



25 

111-112 

196 

125-140 



1. COUNT 1 

2. BINASC 

3. AHOLD 

4. HEXDIG 



is used as counter for program execution within 
a loop. 

consisting of 2 words, is filled with the ASCII 
code for exactly 4 characters representing hex 
digits. 

is used to hold the bits for the binary number 
during the conversion process. 

is the beginning of 16 consecutive locations 
in the constant table. End of these locations 
contains the ASCII code for a character repre- 
senting a hexadecimal digit. 



Entry to CONVRT 



Prior to entry to CONVRT, the A register is set to the binary number 
for which the ASCII output for the equivalent hexadecimal number is 
to be generated. Entry is made to CONVRT by executing the following 
instruction: 



LABEL 



OPCODE 

RTJ- 
EQU 



ADDRESS 

CONVRT , I 
CONVRT (148) 



REMARKS 



3^8.4.3 CONVRT Operation 

Upon entry to CONVRT, the A register contains a 16 bit binary 
number. This number is held in AHOLD during the CONVRT operation. 
The CONVRT eill extract 4 bits at a time from this number and re- 
place them with the ASCII code for one of the hexadecimal digits. 
The four bit bytes are processed in a left to right order. The 4 
ASCII corresponding to these bytes are stored in 2 consecutive 
words, 2 to a word. 
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15 



12 11 



8 7 



4 3 



3^8.4.4 



3^.8.4.5 



318.5 



3^8.5.1 



byte 1 


byte 2 


byte 3 


byte 4 


15 


8 


7 





HEX1 


HEX2 


HEX3 


HEX4 



A register: 



HEXDIG 
HEXDIG+1 

Exit from CONVRT 



The exit is made from CONVRT by execution of the following instruc- 
tion: 



LABEL 



OPCODE 

JMP- 
EQU 



ADDRESS 

CNVXIT,I 
CNFXITQ47) 



REMARKS 



Subroutines Used by and Internal to CONVRT 

GETHEX is used by CONVRT to replace a 4 bit byte in a 

binary number with the ASCII code for a hexadecimal 
digit. The contents of AHOLD are shifted left cir- 
cular 4 upon entry to GETHEX. Bits 0-3 of AHOLD 
ate placed in the A register. GETHEX will replace 
this value with the corresponding hex digit and a 
transfer is made to the exit. 

GETHEX is entered with a return jump to the location 
by that name. 

TABSCH 

The TABSCH subroutine is used to search the Loader Table for an 
entry containing a name to match a name supplied by the calling pro- 
gram. 

Constant Table Storage Referenced by TABSCH 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 



COUNT 1 

TABLIM 

TABCTR 

SW6 

AHOLD 

INPCTR 

Constant Storage is used as follows 



25 
7 
16 
28 
196 
15 
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1. C0UNT1 is used as a counter for program execution within a 
loop. 

2 . TABLIM contains the low est ( t p war d_0 )_co_r_ e_ad dr. e s s_o c cu p i ed 

by the loader table. 

3. TABCTR contains the number used as an index. This number is 
added to the base address of the Loader Table (con- 
tained in TABLIM), and the resultant address points 
to the 1st word of some entry in the Loader Table. 

5. AHOLD is used as temporary storage for the A register 

during execution of the TABSCH subroutine. 

6. INPCTR contains the first address of storage of the name 

being searched for in the Loader Table. 

3^8.5.2 Communication Region Constants Used by TABSCH 

CONSTANT LOCATION 
$7FFF $42 = MASK1 

3«=|.8.5.3 Entry to TABSCH 

Prior to entering TABSCH, the location INPCTR is set to the 1st word 
address of the sequential locations containing the name being searched 
for in the Loader Table. Entry is made to TABSCH with the following 
instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- TABSCH, I 

EQU TABSCH(IOO) 

B^S.S^ Searching Operation 

Upon entry to the TABSCH subroutine - 

1. The location INPCTR contains the first word address of some 
entry in the input block. 

2. The location TABCTR contains the number of entries in the 
loader table, and 

3. the location TABLIM contains the first word address of the 
Loader Table. 

The location TABCTR contains the number of Loader Table entries. If 

(TABCTR) =0, there are no Loader Table Entries. The location SW6 

is set to a -0, and a jump is made to the exit from the TABSCH routine. 

The location TABLIM contains the base address of the Loader Table. The 
location SW6 is to be used as an index counter. When the value is SW6 
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is added to the address in TABLIM, the resulting address is the 1st 
word of a Loader Table entry. Initially, upon entry to TABSCH, the 
location SW6 is cleared to zero. TABSCH will compare bits 0-14 of 
the first 3 words or each entry of the loader table with bits 0-14 of 
the first 3 words of the entry from the input block as follows: 

((INPCTR)) is compared with ((TABLIM)+(SW6)) 
((INPCTR)-U) is compared with ((TABLIM)+(SW6)+1) 
((INPCTR) t-2) is compared with ((TABLIM)+(SW6)+2) 

If a comparison is made between the name is a Loader Table entry and 
the given name, a jump is made to the exit from TABSCH, Upon exit from 
TABSCH the address obtained by the addition 

(TABLIM)+(SW6) 

is the 1st core location of the Loader Table entry with the matching 
name. 

Each time a comparison test with a Loader Table entry fails, the value 
in SW6 is increased in order to access the next Loader Table entry: 

(SW6H5 SW6 

If comparison with each Loader Table entry has failed, the end of the 
Loader Table has been reached. When the end of the Loader Table has 
been reached, the value in SW6 is as follows: 

(SW6) = (TABCTR) * 5 

If the name from the input block entry does not match any name in the 
loader table, the location SW6 is set to -0, and a transfer is made 
no the exit address. 

3^8.5.6 Exit from TABSCH 

Exit from the TABSCH subroutine is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- SCHXIT,I 

EQU SCHXIT(99) 

3 c i.8.6 TABSTR 

The TABSTR routine is used to make an entry into the Loader Table. 
3^.8.6.1 Constant Table Storage Referenced by TABSTR 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

TABLIM 7 

TABCTR 16 

DATCTR 182 

CSQCTR 183 
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INPCTR 15 

COUNT 1 25 

ENTPNT 13 

-LINK : 14 

SW6 28 

Constant table storage is used as follows: 

1. TABLIM contains the lowest (toward 0) core address occupied 

by the Loader Table. 

2. TABCTR contains the number of entries in the Loader Table. 

3. DATCTR contains the upper limit address (last address +1) of 

the Load Time Data Storage Buffer. 

4. CSQCTR contains the upper limit address in Load Time Core 

(last address +1) for storage of command sequence read 
in by the Load. 

5. INPCTR contains the first address of storage of the name 

being stored in the Loader Table. 

6. C0UNT1 is used as a counter for program execution within a 

loop. 

7. ENTPNT contains the absolute core address associated with the 

name to be stored in the Loader Table. 

8. LINK contains an address which serves as a pointer. If a 

name appears at least one other Loader Table entry, 
LINK contains the address which points to Word 4 of 
that entry. If it does not appear in some en try in the 
Loader Table, LINK contains a "-0". (See item 28.5.2.3.2 
for Loader Table information.) 

9. SW6 is set to a if the name referenced by INPCTR is to 

be recorded in the Loader Table as an entry point name. 
It is set to a -1 if the name referenced by INPCTR is 
to be recorded as an external name. . 



3^8.6.2 Entry To TABSTR 



Prior to entering TABSTR, the location INPCTR is set to the 1st word 
address of the sequential locations containing the name to be recorded 
in the Loader Table. Entry is made to TABSTR with the following 
instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- TABSTR, I 

EQU TABSTR(104) 
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318.6.3 Table Store Operation 
Upon entry to TABSTR - 

1. The location INPCTR contains the first word address of the 
name for the entry to be made in the Loader Table. 

2. The location TABLIM contains the base address of the Loader 
Table. 

3. The location ENTPNT contains the address for this name. 

4. The location SW6 contains either a zero if (ENTPNT) is an 
entry point address or a -1 if (ENTPNT) is a link address. 

5. The location LINK contains a -0 if the name referenced by 
INPCTR appears nowhere else in the Loader Table, or the address 

>,,r • in LINK points to W0RD4 of the most recent entry to the 
Loader Table containing the name referenced by INPCTR. 

The TABSTR subroutine will first make sure that by adding another 
entry to the Loader Table, there will be no overflow of available 
core. Overflow of available core will result if - 

(TABLIM) - 5 > (CSQCTR) 
(TABLIM) - 5 > (DATCTR) 

If either of these two conditions should arise, a return jump will 
be made to the PRINT 3 error routine where an error indication is 
printed. A list will be made of all unpatched externals when a jump 
ib made to TABCHK. The name TABCHK is declared as an external in 
TABSTR and as an entry point in the routine named BRANCH. (See item 
28.6.6.5.) If neither of these conditions arises, the name whose 
first word address is in INPCTR is placed in the loader table. The 
entry is made as follows: 

(TABCTR)-l > TABCTR 

(TABLIM) - 5 —> (TABLIM) 

((INPCTR)) > (TABLIM) 

((INPCTRHl) » (TABLIM)+1 

((INPCTR)+2) ^(TABLIM)+2 

The address for the name is placed in the fourth word of the entry 
as follows: 

(ENTPNT) =► (TABLIM)+3 if (SW6) =0, or - 

-(ENTPNT) -> (TABLIM)+3 if (SW6) = 1 

The "pointer" is placed in the last word of the entry as follows: 
(LINK) > (TABLIM)+4 
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3*18.6.4 Exit from TABSTR 



Following a loader table entry, exit is made from TABSTR with the 
-following-instruction: 



LABEL OPCODE ADDRESS REMARKS 

JMP- STRXIT,I 

EQU STRXIT(103) 

If overflow of core would have occurred as a result of the Loader 
Table entry, exit is made from the TABSTR routine with the following 
instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP TABCHK 

Where the name TABCHK is declared as an external in TABSTR and as an 
entry point name in the routine named BRANCH. 

3^8.7 LSTOUT 

There are four routines used by other subprograms of the Loader as ( ^ 

standard routines for output operations on the standard list device for K -~- y 

the system. The four subroutines are: 

PR INT 3 
PRINT2 
PRINT4 
PRINT5 

3^8.7.1 PRINT3 

PRINT3 is a subroutine used for printing error messages. The 
error messages consist of the letter f followed by 1 or 2 hexadecimal 
digits. Operation within the Loading Procedure may be resumed imme- 
diately following the error message output. 

3^.8.7.1.1 Entry to PRINT3 

Prior to entering PRINT3, the A register is set to the ASCII code 
for two hexadecimal digits. (If a number for an error message 
contains only 1 digit, the digit will be in bits 8-15 of A. Bits 0-7 
of A contain the ASCII code for a space.) PRINT3 is entered with the 
following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- PRINT3,! r^ 

EQU PRINT3(114) V- 
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3^8.7.1.2 Error Message Output 



Upon entry to PRINT3 the A register is stored at COMSGE+1 while the 
ASCII code for a space and the letter E is stored in COMSGE. The 
1st word address of the error message output = "COMSGE" is placed in 
the A register. The length of the message is placed in the Q 
register. A return transfer is made to the routine CDRIV where the 
address CDRIV is declared as an external. CDRIV is the entry point 
for the I/O routine for the comment medium. (See item 28.7.2.) 



3T.8.7.1.3 Exit from PRINT3 



Exit from the PRINT3 routine is made with the following instruction: 
LABEL OPCODE ADDRESS REMARKS 



JMP- 
EQU 



PR3XIT,I 
PR3XIT(113) 



c 



31.8.7.1.4 Subroutines Used by and External to PRINT3 
CDRIV 



is used for output on the comment medium. This routine 
is entered with a return jump to its entry point whose 
name is CDRIV. 



3^.8.7.2 PRINT2 



PRINT2 is a subroutine used for printing error messages. The 
error message consists of the letter E followed by 2 hexadecimal 
digits. The Loading Operation is terminated by entrance to PRINT2. 



3^8.7.2.1 Entry to PRINT2 



The A register is set prior to entering PRTNT2 in the same manner as 
described for PRINT3 (see item 28.8.7.1.). Entry to PRINT2 is made 
with the following instruction: 



LABEL OPCODE 

JMP- 
EQU 

3^8.7.2.2 Error Message Output 



ADDRESS 

PRINT2,I 
PRINT2(119) 



REMARKS 



o 



Immediately upon entry a return transfer is made to PRINT3 to print 
the error message. Upon return from PRINT3, a jump is made to the 
address whose name is STOP. At STOP, the A register is made 0, 
and the Q register is set to -0. 
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3^8.7.2.3 Exit from PRINT2 
Exit is made from STOP with the following instruction: 



LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 

where the name LOADER is declared as an entry point in the LOADER 
routine and as an external in the PRINT2 routine. 

3^.8.7.2.4 Subroutines Used by and Internal to PRINT2 

PRINT3 which is entered for error message output with a return 

jump to the address = 114 + (I). 

3^.8.7.3 PRINT4 

The PRINT4 subroutine is used to print a message consisting of a 6 
character name and a 4 digit hexadecimal address. The format is 
as follows: 

SSSSXkxXXXSShhhh 

where - 

S - space 

X - alphanumeric character, and 

h - a ^hexadecimal digit. 

3^.8.7.3.1 Constant Table Storage Referenced by PRINT4 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

BINASC'. 111-112 

The constants are used as follows: 

1. BINASC locations are used for storage of hex digits after 
, , number conversions have binary to ASCII. 

3^8.7.3.3 Entry to PRINT4 

Prior to entering PRINT4, the Q register is set to the ASCII starting 
address for: the message. The A register contains the binary number 
to be converted to ASCII code for the 4 remaining charactersof the 
output. PRINT4 is entered with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- PRINT4,I 

EQU PRINT4(154) 
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3^.8.7.3.4 Output Message Generation 

The address in Q is placed in temporary storage. The binary number 
in A is converted to the ASCII code for 4 hex digits by a return 
jump to CONVRT routine. Upon return from the CONVRT routine, the 
locations BINASC and BINASC+1 contain the ASCII code for the number. 

The hex digits in BINASC & BINASC+1 are placed in the 7th and 8th 
words of the output area. The first word address of the output 
area is placed in the A register. The number of words to be printed 
(8), is placed in the Q register. A return jump is made to the 
LDRIV routine for message output. Upon return from LDRIV a jump 
is made to the exit from the PRINT4 routine. 

3^.8.7.3.5 Exit from PR INT 4 

Exit from PRINT4 is with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 



o 



o 



JMP- PR4XIT,I 

EQU PR4XIT(153) 

3^.8.7.3.6 Subroutines Used by and External to PRINT4 

CONVRT is used to convert a 16 bit binary number to the 

ASCII code for 4 hex digits. This routine is entered 
with a return jump to the address = 148(1). (See 
item 28.8.4.) 

LDRIV is used to print a message on the list device. This 

routine is entered with a return jump to LDRIV where 
LDRIV is declared as an external. (See it>em 28.7.4.) 

3^.8.7.4 PRINT 3 

The PRINT5 routine is used to print a six character name. 
3CJ.8. 7.4.1 Constant Table Storage Referenced by PRINT5 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

INPCTR 15 

INPCTR contains the 1st word address for storage of the 6 
character name to be printed. 

3^.8.7.4.2 Entry to PRINT 5 

Prior to entering PRINT5, the location INPCTR is set to the 1st 
word address for storage of the 6 character name to be printed. 
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Entry is made to PRINT5 with the following instruction: 
LABEL OPCODE ADDRESS REMARKS 



RTJ- PRINT 571" 



EQU PRINT 5(1 58) 

3^.8.7.4.3 Output Message Generation 

The address in INPCTR is placed in the A register. The length of 
the output. is placed in the Q register (3 words). A return transfer 
is made to CDRIV where this name is referred to as an external 
address. A transfer to the exit from PRINT5 is made upon return 
from CDRIV. 

3^.8.7.4.4 Exit from PRINT 5 

Exit is made from PRINT5 with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- PR5XIT,I 

EQU PR5XIT(157) 

3*18.7.4.5 Subroutines Used by and External to PRINT5 

CDRIV is used to print the 6 character name. (See item 

28.7.2.) 

3=18.8 LINK1 

Instructions which reference the same external name are tied together 
by a string of link addresses. The assembler generates two words 
for each instruction that references an external name. Bits 0-14 
of the second word of each instruction contains a link address which 
points to the location containing the next link address in the 
string. The last location in the string cont ains a link address of 
$7FFF in bits 0-14. 

The LINK1 subroutine will replace each of the link addresses in a 
string with the entry point address for the particular name. 

3^8.8.1 Constant Table Storage Referenced by LINK1 

NAME USED ;IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

DATLEN 177 

ENTPNT 13 

LINK 14 

INPWRD 10 

NGRLSW 9 

PROD IF 171 
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Constant Table storage is used as follows: 

1. DATLEN contains the length of the data block. 

2. ENTPNT contains the absolute value of the entry point address 

in bits 0-14. 

3. LINK contains the absolute value of the 1st link address 

in a string. 

4. INPWRD is used as temporary storage during program execution. 

5. NGRLSW is set positive or negative prior to entry to LINK1. 

Determines whether patching is for absolute or rela- 
tive addressing. 

6. PROD IF contains the mass storage word count. 

B^.S.S^ Communication Region Constants Used by LINK1 

CONSTANT LOCATION 
$7FFF $42 = MASK1 

3^.8.8.3 Entrance to LINK1 

Both LINK and ENTPNT are set prior to entering LINK1. Prior to 
entry to LINK1 the location NGRLSW is set either positive or nega- 
tive. The location NGRLSW is set with ((INPCTR)) = 1st 2 characters 
of the name. LINK1 is then entered with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- LINK1,I 

EQU LINK1(164) 

3^8.8.4 Patching 

Upon entry to the subroutine LINK1, the location LINK contains a 
link address and the location ENTPNT contains an entry point address. 
The address in LINK points to the 1st location in a link address 
string. Each location in the link address string contains an address 
which points to the next location in the string. Bits 0-14 of the 
last location in the string are set to the value $7FFF. 

The address in LINK and ENTPNT are execution time addresses - they 
refer to locations in execution time core. Each of the addresses in 
a LINK address string is an execution time address. The command 
sequence containing the link address string occupies load time core. 
Therefore, the load time core address for the 1st location in the 



o 
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string is obtained by the following arithmetic: 

(LINK) + (DATLEN) - (PRODIF) = Load time core address 
for— 1st— location-in-link-address-string. 



Similarly, the load time core address for successive locations in 
the string are obtained as follows: 

Execution time address + (DATLEN) - (PRODIF) = load 
time core location 

If the contents of NGRLSW is positive, patching for the absolute mode 
of addressing will occur. 

LINK1 will replace the contents of every location in the string of 
the link addresses by the entry point address in ENTPNT. The 
following occurs: 

(DATLEN) - (PRODIF) + (LINK) LINK 

bits 0-14 of ((LINK)) INPWRD 

(ENTPNT) (LINK; at bits 0-14, bit 15 of ((LINK)) is 
not changed 

(INPWRD) LINK 

If the contents of NGRLSW are pos-Hive, LINK1 will replace the 
contents of every location in the string by a relative value. This 
value is the difference between the address in LINK and the entry 
point address. The following occurs: 

(DATLEN) - (PRODIF) + (LINK) LINK 

bits 0-14 of ((LINK)) INPWRD 

(ENTPNT) - (LINK) (LINK) at bits 0-15 
(INPWRD) LINK 

LINK1 will loop to process the next link address in the string. The 
procedure terminates when the contents of LINK (bits 0-14) is $7FFF. 
A transfer is made to the address stored in the entry point. 

NOTE: The LINK1 operation may be referred to as patching. Patching, 
as illustrated above, may be either relative or absolute. However, 
the mode of patching is uniform for each location in the string of 
link addresses. 

3*18.8.5 Exit from LINK1 

Exit is made fromthe LINK1 routine using the following instructions: 

LABEL OPCODE ADDRESS REMARKS 
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3^.8.9 LINK2 

LINK2 is the subroutine that is used to tie together two strings of 
link addresses. The last 15 bit address in each string is $7FFF. 
When two strings are tied together, the $7FFF at the end of string A 
is replaced by the address of the location containing the $7FFF at 
the end of string B. The complement of the 1st address of string B 
is placed in W0RD4 of the Loader Table entry for the external name, 
replacing the 1st address from string A. 

3^.8.9.1 CONSTANT TABLE STORAGE REFERENCED BY LINK2 

NAMES USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

DATLEN 177 

ENTPNT 13 

INPWRD 10 

LINK 14 

NGRLSW 9 

PROD IF 171 

PROLIM 181 

SW6 28 

TABLIM 7 

Constant table storage is used as follows: 

1. DATLEN contains the length of the data block. 

2. ENTPNT contains the absolute value of the address which points 

to the beginning of the 1st string. 

3. INPWRD is used as temporary storage during program execution. 

4. LINK contains the absolute value of the address which points 

to the beginning of the second string. 

5. PR0DIF contains the mass storage word count. 

6. PROLIM contains the upper limit address (last address + 1) 

for the odd sector (1-95 words in length) at the 
bottom of unprotected core. 

7. TABLIM contains the lowest (toward 0) address occupied by 

the Loader Table. 

8. SW6 contains an index, a value which when added to the 

base of the Loader Table, results in an address which 
points to an entry in the Loader Table. 
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3^.8.9.2 



Communication Region Constants Used by LINK2 



318.9.3 



31.8.9.4 



CONSTANT 
"$7FFF 
$8000 



LOCATION 
"$42^MASK1" 
$21 = MASK2 



Entry to LINK2 

Both LINK and ENTPNT are set prior to entering LINK2. The LINK2 
subroutine is entered with the following instruction: 



LABEL 



Linking 



OPCODE 

RTJ- 
EQU 



ADDRESS 

LINK2,I 
LINK2(168) 



REMARKS 



Upon entry to LINK2, the location ENTPNT contains a link address 
from an entry in the EXT input block. The location LINK contains 
the link address for an entry in the Loader Table. These addresses 
are both execution time addresses - they reference locations in 
execution time core. The external names from the input block entry 
and Loader Table entry match. 

The address in ENTPNT is temporarily recorded in the location INPWRD. 
Tf the address in ENTPNT is $7FFF a transfer is made to the exit 
from LINK2. An address of $7FFF is ENTPNT means that within the 
program currently being read in there is an external name which is 
not referenced by the address protion of any instruction in the 
program. If the address in ENTPNT is not $7FFF, it is a pointer 
to the second address in a string of link addresses which occur 
in the program currently being loaded. The location in the string 
which contains a $7FFF is the last address in the string. The 
address in LINK points to the 2nd address in a string of link 
addresses which occur in the previous program(s) loaded. 

In order to combine these two strings, the following is a necessary 
condition: It is necessary for all programs to be loaded which 
reference the external name in question, do so in a uniform manner; 
(i.e., they must all reference this name with either the relative 
mode of addressing or with the absolute mode of addressing). This 
condition is met if the sign bits are alike for the 1st word in 
each of the two entries. 

(INPCTR) = 1st word address of the EXT block entry. 
(TABLIM)+(SW6) = 1st word address of the Loader Table entry. 

It is necessary that 

(INPCTR) 15 = ((TABLIM) + (SW6)) 1 
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Before this link operation occurs a check is made on the sign bits 
for the first word of both the EXT block entry and the Loader Table 
entry for this external name. The sign bit settings for these words 
must be alike. If they differ, the following error procedure 
results: 

1. A return jump is made to the PRINT3 error subroutine to 
print the error indication of E12. 

2. A return jump is made to the PRINT5 subroutine to print the 
name of the external. 

3. The Loading Operation is terminated when a jump is made to 
the location STOP where "STOP" is declared as an external. 

If the sign bits are alike, the operation of LINK2 is allowed to pro- 
ceed. 

In order to combine the string of link addresses corresponding to 
the Loader Table entry with the string corresponding to the EXT 
blank entry, LINK2 will do the following: 

1. Beginning at the location whose label is SLEW, LINK2 
traces through to the end of the link address string be- 
ginning with the address in ENTPNT. The address in ENTPNT, 
together with the other addresses in the Link address string, 
are execution time addresses. The link address string is 
contained in load time core. The load time core address 

of the 1st location in the string is obtained by - 

(DATLEN) - (PRODIF) - (ENTPNT) > ENTPNT 

2. ((ENTPNT)) n = the execution time value of the next address 
in the link address string. If ( (ENTPNT)) - $7FFF, 

the end of the string has been reached and the operation 
proceeds with step 4. 

3. If ((ENTPNT)) 7*= 0, the load time value for the next 
address in the link address string is obtained by - 

(DATLEN) - (PRODIF) + (ENTPNT) => ENTPNT 

Step 2 is repeated. 

4. (ENTPNT) = the load time location for the last address in 
the link address string from the EXT block entry. The 
link address from the Loader Table entry, = (LINK), is 
recorded in bits 0-14 of (ENTPNT). Bit 15 of (ENTPNT) 

is not changed: 

(LINK) + ((ENTPNT)) > (ENTPNT) 
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5. (INPWRD) = the execution time location for the 1st address 
in the link address string from the EXT block entry. The 
one's complement of this address is recorded in W0RD3 

of-the— Loader— Table-en-try: 

-(INPWRD) (TABLIM) + (SW6) + 3 

6. An exit is made from the LINK2 routine. 



For purpose of illustration: 

1. Prior to the return transfer to LINK2 

a. a previous program loaded contains the following command 
sequence: 



LABEL 



OPCODE 


ADDRESS 


REMARKS 


NAM 


PROG A 




EXT 


ABC 




ORG 


DEF 




RAO 


ABC 




INA 


5 




STA 


ABC 





and the machine language is organized as follows: 



LOCATION 
DEF 

DEF+2 

DEF+4 
DEF^5 



CONTENTS 



RAO | 01XX 


00 


° 


$7FF 


1 
LDA 1 01XX 


00 


3 1 


DEF^l 


INA 


05 


STA 


01XX 


00 


Dj 


DEF+3 



W0RD1 
WORD 2 
W0RD3 
W0RD3 



b. the loader table contains the following entry: 



I A 


B 


C 


A 


A 


A 


one's complement of DEF+5 



r 
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the current program being loaded contains the following 
sequence: 
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LABEL 



OPCODE 


ADDRESS 


REMARKS 


NAM 


PROG B 




EXT 


ABC 




ORG 


GHI 




LDA 


ABC 




INA 


-3 




STA 


ABC 





and the machine language is organized as follows: 
CONTENTS 



LDj 


\. 


01XX 


00 





$7FF 


INA 


-3 


STA 


01XX 


00 





DEF+1 






A 


B 


C 


A 


A 


A 


one's complement of GHI+4 



LOCATION 
GHI 

GHI+2 
GHI+3 



d. the EXT block contains the following entry: 

W0RD1 
W0RD2 
W0RD3 
W0RD4 

2. Upon returning from LINK2 to the calling program 
a. the machine language is organized as follows: 

LOCATION CONTENTS 
DEF 

DEF+2 

DEF+3 
DEF+4 

GHI 

GHI+2 
GHI+3 



RAO 


01XX 


00 





$7FFF 


LDA 


01XX 


00 





DEF+1 


INA 


5 


STA 


01XX 


00 





DEF+3 


LDA 


01XX 


00 





DEF+5 


INA 


-3 


STA 


01XX . 


00 
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b. the loader table entry in l.b. becomes 



3^8. 9. 5 



WORD 1 






A 


B 






c 


A 


A 


A 


one's complement of GHI+4 



WORD 2 
WORD 3 
WORD 4 

For this example, when time comes to perform the LINK1 operati- n, 
all patching will be carried out for the absolute mode of addressing, 

NOTE: Had the exit psuedo in PROG A been 

EXT* ABC 

while 

EXT ABC 

the following error output would have occurred during the load 
operation LINK2: 

E14 
ABC 

The entry in the EXT input block in PROG B will appear as follows: 



; A 


B 


C 


A 


A 


A 


one's complement of GHI+4 



If, in the first illustration, no references had been made by this 
command sequence in PROG B to the external name, the fourth word 
of the EXT input block will contain the one's complement of $7FFF 
or $8000. 

Under such circumstances it will not be necessary to perform the 
LINK2 operation. Therefore, if upon entry to LINK2, (ENTPNT) = 
$7FFF, a transfer will be made immediately to the exit address. 

Exit from LINK2 

Exit from LINK2 is made with the following instructions: 

LABEL OPCODE ADDRESS REMARKS 



JMP- 
EQU 



LK2XIT,I 
KL2XIT(167) 



( 



r 
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BIS. 9. 6 Subroutines Used by and External to LINK2 

1. PRINT3 is used to print the error indication E12. (See 

item 28.8.7.1.) 

2. PRINT5 is used to print the name of an external. (See 

item 28.8.7.4.) 

Entry to these subroutines is with the following instructions: 
LABEL OPCODE ADDRESS REMARKS 



o 



RTJ- 


PRINT3,I 


ENTRY TO PRINT3 


EQU 


PRINT3(114) 




RTJ* 


PRINT5,I 


ENTRY TO PRINT5 


EQU 


PRINT5(158) 





3^8.10 C0REXT 

The lower & upper limits of unprotected core as far as the Loader 
is concerned, are contained in LWRLIM & UPRLIM respectively. The 
Job Processor places the Relocatable Binary Loader at the high end 
of unprotected core. The lowest (toward 0) address occupied by 
the Loader is placed in the 23rd location of the constant table. 
The Location TABLIM is set initially to this address. The Loader 
Table extends downward in core. The location L0WC0R is initially 
set to (LWRLIM). That area of core available for storage of 
relocatable binary input is referred to etiher as "load time core" 
or ""available core". The limits of available core are always: 

(L0WC0R)4 1 to (TABLIM)- 1. 

The length of any relocatable binary program loaded may not exceed 
the size of unprotected core. However, it may exceed the size of 
available core. When this occurs, available core no longer is the 
permanent storage place for the command sequence at execution time. 
Instead, available core is used as a buffer into which the Loader 
stores words of the command sequence after it absolutizes the re- 
locatable binary input. When this buffer is full, its contents are 
recorded as a block on mass storage. The operation is repeated 
until the loading operations is interrupted. Upon return to the 
monitor from the Loader, a location in the constant table will have 
the tally of the number of owrds on mass storage. The monitor will 
read this information into the low end of unprotected core before 
entering the program for execution. It is the function of the C0REXT 
routine to empty the block of available core onto mass storage. 

3^8.10.1 Constant Table Storage Referenced by C0REXT 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

ASAV 89 

QSAV 90 

PR0STR 1 
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LOWCOR 
PROD IF 
CSQCTR 



179 
171 
183 



COUNT 1 
PROLIM 
DATLEN 
SECTOR 
SECTNO 



25 

181 

177 

198 

173-174 



The contents are used as follows: 

1. ASAV is used for temporary storage f the operand in the 

A register. 

2. QSAV is used for temporary ^t>j> age of the operand in the 

Q register. 

3. PROSTR holds a load time storage base for the next program 

to be loaded. 

4. LOWCOR contains an address wh: <~h when incremented by 1 is the 

lower limit address ' ; -r •.•idress-l) of load time 
core. 

5. PRODIF contains the tally for the number of words written onto 

mass storage by the COREXT routine. 

6. CSQCTR is used as an address ounter. 

7. C0UNT1 is used as an address counter. 

8. PROLIM is set prior to the exit from COREXT to ar. execution 

time address which is the upper limit of the "'odd 
sector 1 '. ( ee item 28. 3. i. 10.) This address has 
a value such that 

(LOWCOR' . PRODIF)- (DAI LEN )<( PRODIF)^ 

( LOWCOR ) - 96~( PRODIF)- (DATLEN) 

9. DATLEN contains the count for the number of words set aside 

for a data reservation. 

10. SECTOR contains the word count for 1 sector on mass storage 

= 96. 

11. SECTNO is the name for the 1st of 2 locations which contains 

the absolute value of the starting sector number 
when transferring words from core to mass storage. 
The number is 30 bits in length. The 15 most signi- 
ficant bits are recorded in bits 0-14 of SECTNO. The 
15 ifcasr significant bits are recorded in bits 0-14 
of SECTN> 
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3^8.10.2 Entry to C0REXT 

Entry to the C0REXT routine is with the following instruction: 
LABEL OPCODE ADDRESS REMARKS 



RTJ- COREXT, I 

EQU COREXT (188) 



3^8.10.3 COREXT Operation 

Upon entry to COREXT, the number of words held in available core is 
equal to 

(PR0STR) - (LOWCOR)-l. 

The COREXT will only write whole sectors onto disk. The number 
of words in available core is divided by 96. 

(PROSTR) - (LOWCOR)-l = X + Y 

where X is the quotient and Y is the remainder. The number of 
words written onto mass storage is 96*X. The output area begins 
at (L0WC0R)+1 and terminates with the address (LOWCOR)+l+96*X. 
The tally, PRODIF, is increased by the value of 96*X. If X is 
zero, fewer than 96 words are in available core and no mass storage 
output occurs. 

The contents of the Y words at the high end of load time core 
are moved to the low end of load time core. 

C0UTN1 and CSQCTR are address counters used for the core to core 
transfer. C0UNT1 is set to the address of (LOWCOR)+l+96*X, and 
CSQCTR is set to (L0WC0R)+1. These address counters are increased 
by 1 for each word transferred. Wbai the transfer is complete, the 
value in CSQLIM is placed in PROSTR. PROLIM is set to the execution 
time address ot ^PROSTR) + (PRODIF) - (DATLEN). A jump is made to 
the exit from COREXT. 

If Y is zero, there is no core to core transfer as described above. 
The value of (L0WC0R)+1 is placed in PROSTR. PROLIM is set to 
(PROSTR) + (PRODIF) - (DATLEN). A jump is made to the exit. If X 
is zero, there is no information to be written onto mass storage 
in the manner described above. The value = (L0WC0RH1+Y is placed 
in PROSTR. PROLIM is set to (PROSTR) + (PRODIF) - (DATLEN). A 
jump is made to the exit. 

3^8.10.4 Exit from COREXT 
r"") The exit from COREXT is made in the following way: 
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LABEL OPCODE ADDRESS REMARKS 

JMP- CXTXIT,I 
EQU CXTXIT (-18 7-) 



3T.8.10.5 Subroutines Used by and External to C0REXT 

MDRIV is used to write absolute records from available 

core onto mass storage. MDRIV is entered with a 
return jump to the address. (See item 28.7.1.) 

DPRADD is used to compute the starting sector number for 

the mass storage operation. (See item 28.8.11.) 

31.8.11 DPRADD 

This routine is used to compute the number for starting sector for 
mass storage operations. 

31.8.11.1 Constant Table Storage Referenced by the DPRADD Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

SECTN0 17 3 

DPRXIT 199 

The constants are used as follows: 

1. SECTNO is the name for the 1st of 2 locations at wich the 

double precision sector number (30 bits in length) 
is stored once it is computed by the DPRADD routine. 

2. DPRXIT is the location to which a jump is made in order to 

exit from the DPRADD routine. 

3*18.1.. 2 Communication Region Constants Used by DPRADD 

CONSTANT LOCATION 

$7FFF $42 = MASK1 

last sector of $E4 
Load-and-Go 
3=18.11.3 Entrance to DPRADD 

Entrance to the DPRADD subroutine is made with the following instruc- 
tion: 

LABEL OPCODE ADDRESS REMARKS 

RTJ- DPRADD,! 

EQU DPRADD (200; 



c 
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3=1.8.11.4 DPRADD Function 

Upon entry to DPRADD, the A register contains a sign bit of and 
a 15 bit number in bits 0-14. The number in A will be referred to 
as a single precision number. The location $E4 also contains a 
positive 15 bit number which is the relative value for the sector 
number at the end of Load-and-Go information on mass storage. 
The locations $C0 and $C1 contain a double precision number for 
the 1st sector in the scratch area. The most significant half of 
the number is in bits 0-14 of $C0 and the least significant half in 
bits 0-14 of $C1. 

The single precision number in the A register is added to the number 
in $E4. The result, in turn, is added to the double precision 
number in $C0 and $C1 and the result is placed in SECTN0 and SECTNO+1, 

The sign bits of SECTNO and SECTNO+1 are 0's. The 15 most signifi- 
cant bits are in bits 0-14 of SECTNO while the 15 least significant 
bits are in bits 0-14 of SECTNO+1. 

3^8.11.5 Exit from DPRADD 

\^^J Exit from the DPRADD subroutine is made with the following instruc- 

tion: 

LABEL OPCODE ADDRESS REMARKS 

JMP- DPRXIT,I 

EQU DPRXIT(194) 

3^9 MAIN LOOP WITHIN THE LOADING PROCEDURE 

The main loop within the Loading Procedure consists of all the rou- 
tines and subroutines which are concerned with reading and processing 
Relocatable Binary Loader Input records. 

3T9. 1 LOADER 

The functions of the LOADER routine are as follows: 

1. Read an input block. 

2. If I/O error occurs during input operation, take appro- 
priate action. 

3. Identify an input record, and branch to the appropriate 
routine to further process input record. 

4. If input record is unrecognizable, take appropriate action. 
3T.9.1.1 Constant Table Storage Referenced .by the LOADER Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

CSQCTR 183 

DATLEN 177 

CA138-1 



c 



CONTROL DATA CORPORATION 

DOCUMENT CLASS _ 



DEVELOPMENT DIV 



IMS 



PRODUCT NAME. 
PRODUCT NO 



V7nn DPFPATTNft SYSTEM 4R711 



MAR 5 1971 

SOFTWARE DOCUMENT 

PAGE NO-15l^Z 



F.nOfi M3.D VFRSION 



±JL 



.MACHINE SERIES 



1700 



DSECNO 
INPXCO 
INPUT 



LOWCOR 
PRODIF 
PROLIM 
PRO ST R 
SECTOR 
SECTNO 
TABCTR 
TABLIM 
TABSNO 



203 

117 

29-88 



179 

171 

181 

185 

198 

173-174 

16 

7 

204 



The constants are used as follows: 

1. CSQCTR contains the load time limit address of the command 

sequence of all programs read in prior to the current 
Loader Operation. 

2. DATLEN contains the size of core set aside for data storage. 

3. DSECNO contains the starting sector number (relative number) 

for recording the contents of the Load Time Data 
storage buffer on the mass storage unit containing the 
scratch area. 

4. INPXCO contains the starting location of the 60 word input 

area for storage of the relocatable binary input blocks 
read by the Loader . 

5. INPUT is the name for the first word address of 60 sequential 

locations used as storage for relocatable binary 
input records read by LOADER. 

contains the lower limit address of load time core. 

contains length of the absolute record of the command 
sequence on mass storage. 

contains the storage limit address (last address+1) 
for the odd sector (1-95 words in length) located at 
the bottom of unprotected core. (Refer to item 
28.3.2.10.) 

9. PROSTR contains the load time storage base for the next 
program to be read in by the loader. 

10. SECTOR contains the word count for a sector on mass storage. 

Word count = 96. 

11. SECTNO the 1st of 2 locations containing a mass storage sector 

number. The number is 30 bits in length. The 15 
most significant bits are in bits 0-14 of SECTNO. The 
15 least significant bits are in bits 0-14 of SECTNO+1. 



6. 


LOWCOR 


7. 


PRODIF 


8. 


PROLIM 



V,.- 
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12. TABCTR contains the number of entries in the Loader Table. 

13. TABLIM contains the address which is the storage base of 

the Loader Table. 

14. TABSN0 contains the starting sector number (relative value) 

for recording the contents of the Loader Table on 
the mass storage unit containing the scratch area. 

3^.9.1.2 Communication Region Constants Used by the Loader 

CONSTANT LOCATION 
$7FFF $42 = MASK1 

3T.9.1.3 Entry to the LOADER Routine 

^BEL OPCODE ADDRESS REMARKS 

RTJ LOADER 

where - 

the name LOADER is referenced as an external within the program from 
which the return jump is made, and as an entry point name within 
the LOADER routine. 

If, upon entry to LOADER, (PR0DIF) = 0, there is no mass storage 
word count. The command sequence of programs read in on previous 
Loader Operations, if any, is contained entirely within the space 
of Load Time Core. A jump is made to the location SW1AXC, and the 
1st input block is read for the current Loader Operation. 

If, upon entry to LOADER, (PRODIF) ± 0, (PRODIF) = the mass storage 

word count of the entire command sequence from programs read in 

during previous Loader Operations. While the current Loader Opera- 
tion is in progress, the mass storage word count in PRODIF must 
always be an integer multiple of 96. If, upon entry to LOADER, 
(PRODIF) is an integer multiple of 96, a jump is made to SW1AXC. If 
not, the last 1-95 words of the command sequence recorded on mass 
storage is read back into the bottom of Load Time core and (PRODIF) 
is reduced by this amount as follows: 

If (PRODIF) f 0, and - 

if (PRODIF) = X + Y where Y f 0, then do the following: 
96 96 

1. Use the DPRADD routine (see item 28.8.11) to compute the 

absolute value of the scratch area sector containing the & 

words (where 1 < Y <95). Record this sector number in 
the locations SECTNO & SECTNO+1. 
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X + ($E4) + ($C0 & $C1) SECTNO & SECTNO+1 

The starting address is placed in the A register. The word count is 

-placed— in-the-Q-register. — A -return— jump-is-made-to-the-MDRIV— rou 

tine (see item 28.7.3) to read the 1-95 words into the bottom 

(LOWCOR) + 1 A 

Y Q 

Upon return from MDRIV a jump is made to SW1AXG to read the first 
relocatable binary input block for the current Loader Operation. 



3 C L9.1.4 Reading Input Records 

At the location SW1ASC, the location SW1+1 is set to the address 
"SW1A". The locations SW1 and SW1+1 contain a 2 worn jump instruction 
whose address is set during program execution. NOTE: In order to 
maintain the "run anywhere" characteristics of the Loader, the location 
SW1 contains a value of $1800, and SW1+1 is set to the following 16 
bit value: 

SW1A - SW1 - 1 

Input records to the Loader may be either binary formatted or ASCII ( 

formatted. All input operations are carried out in the binary mode. 

Therefore, any ASCII formatted record used as Loader input must have 

an "''" as the first character. The binary formatted records must 

be one of the 6 relocatable binary formats produced by the 1700 

Assembler. 

3S1«4»1 Reading Relocatable Binary Input Blocks 

The LOADER routine begins its input operation at the location NXTBLK. 
The Loader reads relocatable binary records or input blocks 60 words 
in length from the input device. The LOADER routine will read a 
formatted record in binary mode by doing the following: 

1. The 60 word buffer for relocatable binary input is back- 
grounded to all ones. 

2. The A register is set to the one's complement of the start- 
ing address. 

3. A return jump is made to the IDRIV routine (where the address 
IDRIV is referenced as an external name). 

Upon return from the IDRIV routine, the A register is set as follows: 

1. (A) = -0 if the read operation is error free. A jump is 

made using the two word jump instruction (with the variable ^_ 

address) at SW1 and SW1+1. The jump is made to the address f 
at which the processing for the input record begins. 

2. (A) = if the read operation were terminated due to an un- 
recoverable error encountered while reading. A jump is 
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12. TABCTR contains the number of entries in the Loader Table. 

13. TABLIM contains the address which is the storage base of 

the Loader Table. 

14. TABSN0 contains the starting sector number (relative value) 

for recording the contents of the Loader Table on 
the mass storage unit containing the scratch area. 

3 C ]»9.1.2 Communication Region Constants Used by the Loader 

CONSTANT LOCATION 
$7FFF $42 = MASK1 

3T.9.1.3 Entry to the LOADER Routine 

LABEL OPCODE ADDRESS REMARKS 

RTJ LOADER 

where - 

the name LOADER is referenced as an external within the program from 
which the return jump is made, and as an entry point name within 
the LOADER routine. 

If, upon entry to LOADER, (PR0DIF) = 0, there is no mass storage 
word count. The command sequence of programs read in on previous 
Loader Operations, if any, is contained entirely within the space 
of Load Time Core. A jump is made to the location SW1AXC, and the 
1st input block is read for the current Loader Operation. 

If, upon entry to LOADER, (PR0DIF) ± 0, (PR0DIF) = the mass storage 

word count of the entire command sequence from programs read in 

during previous Loader Operations. While the current Loader Opera- 
tion is in progress, the mass storage word count in PR0DIF must 
always be an integer multiple of 96. If, upon entry to LOADER, 
(PR0DIF) is an integer multiple of 96, a jump is made to SW1AXC. If 
not, the last 1-95 words of the command sequence recorded on mass 
storage is read back into the bottom of Load Time core and (PR0DIF) 
is reduced by this amount as follows: 

If (PROD IF) + 0, and - 

if (PRODIF) = X + Y where Y f 0, then do the following: 
96 96 

1. Use the DPRADD routine (see item 28.8.11) to compute the 

absolute value of the scratch area sector containing the & 

words (where 1 _<; Y ^95). Record this sector number in 
the locations SECTN0 & SECTN0+1. 
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X + ($E4) + ($C0 & $C1) SECTNO & SECTNO+1 

The starting address is placed in the A register. The word count is 

-placed-in-the-Q-register-. — A-return— jump-is-made-to-the-MDRIV— rou 

tine (see item 28.7.3) to read the 1-95 words into the bottom 

(LOWCOR) + 1 A 

Y Q 

Upon return from MDRIV a jump is made to SW1AXC to read the first 
relocatable binary input block for the current Loader Operation. 



3^9. 1.4 Reading Input Records 

At the location SW1ASC, the location SW1+1 is set to the address 
"SW1A". The locations SW1 and SW1+1 contain a 2 word jump instruction 
whose address is set during program execution. NOTE: In order to 
maintain the "run anywhere" characteristics of the Loader, the location 
SW1 contains a value of $1800, and SW1+1 is set to the following 16 
bit value: 

SW1A - SW1 - 1 

Input records to the Loader may be either binary formatted or ASCII C 

formatted. All input operations are carried out in the binary mode. 

Therefore, any ASCII formatted record used as Loader input must have 

an "*" as the first character. The binary formatted records must 

be one of the 6 relocatable binary formats produced by the 1700 

Assembler. 

3^1.4.1 Reading Relocatable Binary Input Blocks 

The LOADER routine begins its input operation at the location NXTBLK. 
The Loader reads relocatable binary records or input blocks 60 words 
in length from the input device. The LOADER routine will read a 
formatted record in binary mode by doing the following: 

1. The 60 word buffer for relocatable binary input is back- 
grounded to all ones. 

2. The A register is set to the one's complement of the start- 
ing address. 

3. A return jump is made to the IDRIV routine (where the address 
IDRIV is referenced as an external name). 

Upon return from the IDRIV routine, the A register is set as follows: 

1. (A) = -0 if the read operation is error free. A jump is 
made using the two word jump instruction (with the variable 
address) at SW1 and SW1+1. The jump is made to the address C 
at which the processing for the input record begins. 

2. (A) = if the read operation were terminated due to an un- 
recoverable error encountered while reading. A jump is 
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made to the PRINT2 error exit where the error indication 
"El" is printed and the Loading Operation terminates. 

3. (A) =-f-l if the read operation were terminated because of 
the alarm condition. The alarm condition arises as a 
result of motion failure on the part of the input device. 
A cause of this, to cite an example, is trying to read paper 
tape when there is no tape in the reader. The significance 
of the alarm error is discussed in the next four paragraphs. 

A relocatable binary program consists of a sequence of relocatable 
binary records beginning with a NAM block and terminating with an 
XFR block. These sequential records must be stored on a continuous 
external medium; i.e., not split between 2 paper tapes. Therefore, 
once the loading of a relocatable binary program has begun, an XFR 
block must be read before an alarm condition is sensed. 

The alarm condition is acceptable to the Loader if the loading of a 
relocatable binary program has been completed by reading and pro- 
cessing its XFR block. The alarm condition is also acceptable after 
reading an ASCII input block. 

Prior to reading the 1st relocatable binary input block, and subsequent 
to reading each XFR block, the address for the jump instruction at 
SW1 is set to SW1A. Also, subsequent to reading the first HEX 
block, the address for the jump instruction at SW1 is set to SW1E. 
It remains set to SW1E for the duration of the Loader Operation. 

Therefore, an alarm condition is acceptable to the Loader if the 
delta in the second word of the jump instruction at SW1 is set as 
follows: 

(SW1U) = SW1A - SW1 - 1 



c 



or 

(SW1+1) = SW1E - SW1 - 1 

If either of these conditions is met a jump is made to the location 
whose label is ALARMOK. At ALARMOK, the ASCII code for "*T" is 
placed in the location INPUT, and the location INPUT+1 is set to a 
-0. A jump is made to SW1F. 

If neither of the above conditions is met, a jump is made to the PRINT2 
error exit where the error indicator "E14" is printed and loading 
terminates. 

35J.9.1.4.2 Reading ASCII Records from the Input Device 

Since ASCII records are read from the input device in the binary 
mode, they will not be processed as ASCII records unless the first 
character is an "*". The ASCII records should not exceed 120 
characters in length. For a maximum length record, the 120th char- 
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acter is expected to be a carriage return. 

The three steps involved in reading an ASCII record are the same 
as those in reading a binary record (as indicated in the 1st para- 
graph of item 28.9.1.4.1). Sequential ASCII records need not occur 
on a continuous external medium. The records are read and pro- 
cessed until the End of Load statement is read ( »*T carriage return") 
or until the alarm condition arises. 

Refer to item 28.9.1.4.1 for the procedure to be followed should an 
alarm condition arise. 

3H9. 1.4.3 Types of ASCII Records 

1. *H, hex correction information and carriage return comprises a 

statement containing hexadecimal correction constants. 

2. *T carriage return is an End of Load Statement. 

3^.9.1.5 Branching to Process an Input Block 

The contents of the first word in the input buffer determines branch- 
ing. If the bits . (INPUT) set to the ASCII code for *, branching 
goes to either HEXPRO or E0LPR0. Otherwise branching is to process 
relocatable binary input and it is determined by the bits . (.(INPUT). 

All branching is with the 2 word jump instructions at SW1 using 
relative addressing. The particular branch chosen to process an 
input block depends on the address position of this jump instruction. 

3^.9.1.5.1 SW1A 

The address in the switch 1 jump instruction is set to SW1A by Pro- 
gram initialization. It is reset to SW1A each time an XFR block is 
to be processed. While switch 1 is set to SW1A only, the NAM 
blocks and ASCII input statements will be processed. The loader 
will transfer to the error exit PRINT2 for all other blocks received 
at this time. If the NAM block is received, the loader will reset 
the jump address in SW1 to SW1B and then jump to NAMPRO. If the 
HEX or EOL block is received, the loader will set the jump address 
in SW1 to SW1F and then jump either to HEXPRO or E0LPR0. 

The address NAMPRO, HEXPRO and E0LPR0 are referenced as external 
names by jump instructions within the LOADER Routine. 

3^9. 1.5.2 SW1B 

The address in the switch 1 jump instruction is set to SW1B whenever 
a NAM block is processed. 
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While jump switch 1 is set to SW1B the loader will process only 
the following block: RBD, BZS, ENT, EXT and XFR. The loader will 
branch to RBDPRO, BZSPRO, ENTPR0, EXTPRO or XFRPRO accordingly. 
The Loader will jump to the PRINT2 error exit each time a NAM, HEX 
or E0L block is received while the SW1 jump instruction has SW1B 
for a jump address. 

The addresses RBDPRO, BZSPRO, ENTPR0, EXTPRO and XFRPRO are 
referenced as external names by jump instructions within the 
LOADER routine. 

3^.9.1.5.3 SW1C 

The address of jump instruction SW1 is set to SW1C whenever an EXT 
block is received by the loader. 

While jump switch 1 is set to SW1C, the loader will process only EXT 
and XFR blocks. All others will cause the loader to take the PRINT2 
error exit. 



o 



3^.9.1.5.4 SW1F 



Subsequent to the most recent return jump to LOADER, a jump will be 
made to SW1F either when an ASCII input statement is read, or when 
an alarm condition has arisen which is acceptable to the Loader. If 
a jump is made to SW1F, one of the following two conditions will 
exist: 

CONDITION 1: The amount of unprotected core occupied by all of the 
relocatable binary programs has exceeded the size of 
the block of core from (L0WC0R)+1 to (TABLIM)-l . The 
location PRODIF contains the size of the absolute record 

— — nn mag g qf-orage. The number of words in PRODIF is 

always a multiple of 96 (96 words/sector on disk). The 
number for the sector on disk at which storage of this 
information begins is a double precision number contained 
in $C0 and $C1. The portion of the command sequence 
yet in core is contained in the block of memory from 
(L0WC0R)+1 to (TABLIM)-l . The exact amount of storage 
is from (L0WC0R)+1 to (CSQCTR)-l. The portion of the 
command sequence yet contained in core is written onto 
the mass storage at the end of portion of the command 
sequence already on mass storage. In order to dump 
this information onto mass storage, a return jump is 
made to the routine C0REXT. NOTE: The C0REXT rou- 
tine will only transfer a record length which is an 
integral multiple of 96. Therefore, with 96 words/ 
sector on mass storage, the odd sector (the last 1-95 
words yet in core) will not be transferred. In order 
to assure that the information in the odd sector will 
be written onto mass storage, the Q register is set 
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to the complement of the length of the storage yet 
held in core which is equal to (CSQCTR) - (LOWCOR)-l. 
The A register is set to the starting address which is 

— — equal-to-(L0WC0R)^lV~Th~e~lo^at"ions _ SECTN0"6rSECTNCH : l 

::.■■:.' contain the starting sector number. A return jump 

is made to MDRIV to dump the last 1-95 words. 

If (DATBAS) =£ 0, there exists a data reservation. 
The relative number for the last sector containing 
the command sequence is computed and recorded at 
DSECNO as follows: 

V (PRODIF) 

96 > ' y 

If (Q) * 0, (A) +1 >A 

(A) > DSECNO 

If the contents of the Load Time Data Storage buffer is 
to be placed on mass storage, the relative value of 
the starting sector number for the transfer is in DSECNO, 
If there is no data reservation, DSECNO remains a zero. 

If (TABCTR) ± 0, there is a Loader Table. If the Loader 
Table is to be recorded on mass storage, it is placed 
behind the sectors occupied by the Load Time Data 
; . Storage buffer. The relative value for the number of 
■'■'''■";"'',' the 1st sector to be occupied by the Loader Table is 
recorded in TABSNO. It is computed as follow;,: 

(DATLEN) 

96 — * A, Q 

;^ v If (Q) * 0, (A) + 1 > A 

(A) + (DSECNO) > TABSNO 

If there is no data reservation, the sector number to 
be recorded in TABSNO is computed as follows: 

(PRODIF) 

96 * A ' g 

If (Q) f 0, (A) + 1 >A 

(A) > TABSNO 

The Load Time Data Storage Buffer and the Loader Table 
; will be transferred temporarily to mass storage if 
:•. •; the space they occupy in unprotected core is needed 
'■.;;'' for other uses. (Refer to item 28.9.7 - EOLPRO.) 

CONDITION 2: The amount of unprotected core occupied by all of 

the relocatable binary programs has not exceeded the 
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size of the block of core from (L0WC0R)+1 to (TABLIM)-l , 
The entire command sequence storage is held within load 
time core and the value stored in PRODIF is zero. The 
address of the jump instruction at SW1 is set to SW1E, 
and a jump is made to SW1E. 



31.9.1.5.5 SW1E 



When the address of jump instruction SW1 is set to SW1E, only ASCII 
input statements will be processed. Binary records will cause the 
Loader to take the PRINT2 error exit where the error indication 
"E3" will be printed and loading terminates. 

319,1.6 Exit from the LOADER Routine 

Exit from the LOADER Routine (other than exits due to error) is 
made whenever an ASCII input statement is read which is assumed by 
the Loader to be a monitor control statement. In this case, the A 
register is set to a value of -0 to indicate an error free exit, 
and the Q register is sit to address constant "INPUT" (the beginning 
of storage for the ASCII control statement). Exit from the LOADER 
routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 

In the event it was necessary to take the PRTNT2 error exit, the 
ASCII code for the error number is placed in the A register. A 
jump is made to the PRINT2 error exit address in the following way: 

LABEL OPCODE ADDRESS REMARKS 



o 



— EQH PR-rNT2fi-t91 ~ 

JMP- PR INT 2, I 

31.9.1.7 Subroutines Used by and Internal to the LOADER Routine 

Zero is used to background the buffer for relocatable 

binary input to -0 prior to reading input from either 
the input or the communication devices. ZERO is 
entered with a return jump instruction. 

319.1.8 Subroutines Used by and External to the LOADER Routine 

1. PRINT2 is used for error message output. Operation is termi- 
nated following printout. (See item 28.8.7.2.) 
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2. MDRIV is used to write command sequence storage onto mass 
storage. Also, it is used to write the Loader Table 
■ onto_ma s s_s tor age . ( S_ee_it em_28_._7_._3_._) ^^_ 



3. IDRIV is used to read input records from the input device. 

(See item 28.7.1.) 

4. COREXT is used to dump core containing absolute records of 

command sequence storage onto the mass storage device. 
COREXT is entered to its entry point location in the 
constant table. (See item 28.8.10.) 

5. DPRADD is used to compute the absolute value of the starting 

sector number for all mass storage operations. 
DPRADD is entered via a location in the constant 
table. (See item 28.8.11.) 

The PRINT2, COREXT & DPRADD routines are entered via the entry point 
locations in the Constant Table. (See item 28.8.10.1 and 28.8.9.1). 

IDRIV and MDRIV are entered with return jump to their respective 
entry point addresses. 

3^.9.2 NAMPRO 

NAMPRO is the routine which is used to process a NAM block. 
3T.9.2.1 Constant Table Storage Referenced by the NAMPRO Routine 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

AINPUT 161 

BLANKS 18 

COMBAS 1 

COMLIM 4 

CSQCTR 183 

CSQLIM 6 

DATBAS 2 

DATCTR 182 

DATDIF 184 

DATLEN 177 

DATLIM 5 

DATRES 178 

DATSTR 180 

ENTPNT 13 

LINK 14 

L0WC0R 179 

LWRLIM 191 

INPCTR 15 

INPUT 29-88 

PROBAS 3 

PRODIF 171 

PROLIM '181 

PROSTR 185 
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QSAV 

SW6 

TABLIM 

The constants are used as follows 



90 

28 

7 



1. AINPUT 

2. BLANKS 

3. COMBAS 

4. COMLIM 

5. CSQCTR 



6. CSQLIM 



7. 


DATBAS 


8. 


DATCTR 


9. 


DATDIF 


10. 


DATLEN 


11. 


DATLIM 


12. 


DATRES 



13. DATSTR 

14. ENTPNT 

15. LINK 



contains one of the entrance parameters for the 
current Loader Operation. (Refer to item 28.5.1.) 

contains a constant used for editing when generating 
an output message. (BLANKS) = $2020 which is the 
ASCII code for 2 spaces. 

contains the Common Storage relocation base. 

contains the upper limit address of the common 
storage reservation (equal to last address + 1). 

contains the load time core upper limit address for 
the command sequence of the program whose NAM block 
is currently being processed. (The limit address is 
equal to 1 + address of last word of program at 
load time. ) 

contains the execution time core upper limit address 
for the command sequence of the program whose NAM block 
is currently being processed. (This limit address 
is equal to 1 + address of last word of program at 
execution time.) 

contains the relocation base for the Execution Time 
Data Storage Block Reservation. 

contains the upper limit address (equal to last 
address + 1) of the Load Time Data Storage Buffer. 



contains the number of words set aside for a data 
reservation. 

contains the upper limit address (equal to last address 
+ 1) of the Execution Time Data Storage Block Reservation, 

contains the load time core address of the relocation 
base for the Execution Time Data Storage Block Reser- 
vation. 

(DATRES) = (DATBAS) + (DATLEN) 

contains the relocation base for the Load Time Data 
Storage Buffer. 

contains the address which is to be inserted into 
the 4th word of a Loader Table entry. 

contains the value which is to be inserted into the 
5th word of a Loader Table Entry. 
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16. LOWCOR contains the lowest (toward 0) unprotected location 

available to the loader for storage of relocatable 
binar_y_input_less_l.: 



(LOWCOR) = (LWRLIM) if no data storage is declared 

(LOWCOR) = (LWRLIM)+(DATLEN) once a data area 
is reserved. The contents of LOWCOR becomes 
the new lower limit of Load Time Core. 

17. LWRLIM contains the lowest unprotected location -1 = 

lower limit of unprotected core. 

18. INPCTR has 2 uses: 

a) It is used as an address counter during a core- 
to-core data transfer operation, and 

b) it is set to the 1st storage address for a name 
to be entered into the Loader Table. 

19. INPUT is the 60 word buffer for storage of relocatable 

binary input. 

20. PROBAS contains the Execution Time Relocation Base for 

the program whose NAM block is currently being 
processed. 

21. PRODIF contains the word count for the amount of command 

sequence storage placed on the mass storage device 
during a load operation. (See item 28.8.10.3.) 
This value is also equal to the difference between 
the execution time relocation base of a program and 
its load time storage base providing there is no data 
block: 

(PROBAS) - (PR0STR) = (PRODIF) if (DATLEN) = 0. 

If there is a data block - 

(PRODIF) = (PROBAS) + (DATLIN) - (PROSTR) 

22. PR0LIM contains the execution time value for the upper 

limit address (last address + 1) of the odd sector 
(1-95 words in length) stored at bottom of load time 
core. 

23. PROSTR contains the load time storage base for the program 

whose NAM block is currently being processed. 

24. QSAV is used for temporary storage of operands in the 

Q register. 

25. SW6 has two uses: 

a) It is initially cleared to zero. It is set to 
a -0 once an error condition arises due to 
overflow of available core. 
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26. TABLIM 



b) Also, it is used for making Loader Table entries. 
SW6 is set to a if the Loader Table entry is 
for an entry point name. It is set to a -0 
if the table entry is for an external name. 

contains the base address for storage of the Loader 
table. 



3*1.9.2.2 Entry to the NAMPRO Routine 

The name NAMPRO is declared as an entry point name in the NAMPRO 
routine and is an external in the LOADER routine. Entry to the 
NAMPRO routine is with the following instruction: 



LABEL 



OPCODE 
JMP 



ADDRESS 
NAMPRO 



REMARKS 



3^9.2.3 Processing a NAM Block 

Common and data storage reservations are set aside when processing 
a NAM block. The base addresses for common and data storage are 
printed on the typewriter. In addition, the six character program 
name in the NAM block is printed on the typewriter together with the 
base address of the program. 

3^9.2.3.1 Reserving Common Storage - NAMPRO 

The value equal to the number of words to be set aside for common 
storage is containeed in the second word of the input buffer, INPUT+1. 
If ( INPUT+1) is zero, NAMPRO does not reserve common storage. Instead, 
the program transfers immediately to NAMPRl. 

If (I NPUT+1) is non zero, NAMPRO looks at (COMBAS). Initially (COMBAS) 
contains zero, but once common storage is declared by a NAM block 



(COMBAS) contains the relocation base of the common storage. If 
no common storage reservation had previously been made, NAMPRO will 
reserve common storage by setting COMBAS to a value equal to (COMLIM) 
- (INPUT+1). This is otherwise defined as the difference between 
the upper limit of available core and the number of words in the 
common storage block. Jjf the Protected Common Flag is set tfte 
bounds are left alone. 

Once common storage has been reserved, NAMPRO must check for overflow 
of available core. There will be overflow of available core if the 
base address of common storage is not greater than the highest 
address used for command sequence storage: 

(CSQLIM)-l *2f (COMBAS) 



o 
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If there is overflow of available core, a -0 will be stored in SW6 
and a jump is made to NAMPR1 where the NAM block is processed further, 
If 2 or more NAM blocks to be processed declare common stora ge , the 



largest declaration of common storage should be in the first NAM 
block to be processed. If (C0MBAS) is non zero, the size of the 
common storage declaration in the current NAM block must not exceed 
the size of the original block reservation: 

(C0MBAS)+(INPUT+1) - (COMLIM) < 

If this condition is met, NAMPR0 proceeds to NAMPR1 to further pro- 
cess the NAM block. If not, NAMPR0 transfers to the closed error 
subroutine, PRINT3, to print the error indication "E4". Upon return 
from PRINT3, NAMPR0 transfers to NAMPR1 to further process the NAM 
block. 

3^.9.2.3.2 Reserving Data Storage - NAMPR1 

Data storage is reserved by the sequence of code beginning at 
NAMPR1. The value equal to the number of words to be set aside for 
data storage is contained in the third word of the input buffer, 
INPUT+2. If (INPUT+2) is zero, NAMPRO does not reserve data storage. 
Instead, the program transfers immediately to NAMPR2. 

If (INPUT 4-2) is non zero, NAMPRO looks at (DATBAS). Initially DATBAS 
contains a zero. Once data is declared, (DATBAS) is set to the execu- 
tion time relocation base of data storage. NAMPRO will reserve data 
storage by assigning available space in the command sequence storage: 

1. (PROBAS) > DATBAS 

2. ( DATBAS )+( INPUT+2) > DATLIM 

In other words: 

1. DATBAS is set to the address which would have been the base 
address of the next program to be loaded had no data storage 
been declared. 

2. The last word address of data storage+1 becomes the base 
address of the next program to be loaded. It also becomes 
the upper limit of available core. 

Once data storage has been declared, NAMPRO must check for the overflow 
of available core. If no common storage has been reserved, the address 
in DATLIM must not exceed the highest address in core: 

(DATLIM) £ (COMLIM) if (C0MBAS) = 

If common storage has been reserved, the address in DATLIM must not 
exceed the relocation base for common storage: 

(DATLIM) ^ (C0MBAS) if (C0MBAS) ± o 
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If neither of these conditions holds true, an error has occurred 
due to the overflow of available core. A -0 is stored in SW6, and 
a transfer is made to NAMPR2 to further process the block. 

Once a relocation base for data storage that does not cause overflow 
of unprotected core has been established, the following occurs: 

1. If fewer than 96 words of command sequence storage is contained 
in unprotected core, no dumping occurs on mass storage. This 
word count is obtained by 

(PR0STR) - (L0WC0R) -1 

If the word count is 96 or greater, the contents of unpro- 
tected core is transferred in integer multiples of 96 words 
to mass storage. If the number of words to be transferred 
is not an integer multiple of 96, the last 1-95 words are 
moved from their current position into the lowest area in 
unprotected core. This is all accomplished by the C0REXT 
subroutine. 

Upon return, PR0STR contains the storage base for the next 
load time program. Also, upon return from COREXT, the 
address in PR0LIM is increased by the length of the data 
storage block: 

(INPUT+2) '+ (PROLIM) » PR0LIM 

2. The number of words to be set aside is recorded in DATLEN: 

(INPUT+2) > DATLEN 

3. A buffer is reserved for data storage (the Load Time Data 
Storage Buffer). This buffer is used by the Loader for 

storage of data relocatable command sequence input. The 

bounds of this buffer are set up by - 



a. (L0WC0R)+1 > DATSTR 

b. (DATSTR)+( INPUT+2) > DATCTR, also 

c. (DTACTR) 2 CSQCTR 

4. Between and 95 words of command sequence (or the "odd 

sector") remains at the bottom of unprotected core following 
the dumping operation in step 1. The exact amount is equal 
to: 

(PR0STR) - (DATSTR) 

upon return from COREXT. Since the Load Time Data Storage 
Buffer is to occupy Storage at the bottom of unprotected 
core, the 0-95 words must be moved to storage cells above 
the Load Time Data Storage Buffer. This means that words 
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stored in the sequential locations from (DATSTR) to (PROSTR)-l 
must be moved to a block or core beginning at (DATCTR) and 
equal to (PROSTR) - (DATSTR) in length. If this length is 
zero, there - is no core^~to-core data transfer, and a jump 
is made to NAMJ12 (see step number 5). 

If (PROSTR) - (DATSTR) =£0, t h e core- to-core transfer is 
accomplished by the words from the source area to the desti- 
nation area, the last word first and the 1st word last. In 
order to implement this data transfer, the location PROSTR 
is used as the address counter for the source block, and 
INPCTR as the address counter for the destination block. 
The address counter INPCTR is set as follows: 

(CSQCTR) + (PROSTR) - (DATSTR) > INPCTR 

A test is made for overflow of load time core. There is 
overflow of Load Time core if one of the following conditions 
exist : 

a) Either (INPCTR) > (TABLIM) , or - 

b) (INPCTR) = (TABLIM) and (INPUT+3) + 0, where (INPUT+3) 
= the amount of Load Time Core to be reserved in 
addition to the data area for the command sequence of 
the program whose NAM block is currently being pro- 
cessed. 

If a core overflow condition exists, a jump is made to 
0VFER1 (see step 7). If no ovwrflow condition has occurred, 
the transfer is made a word at a time until completion when - 

(PROSTR) = (DATSTR) 

5. The location L0WC0R is set to the new lower limit address 
for load time core. Prior to setting aside locations for 
data, the lower limit of load time core coincided with the 
lower limit of unprotected core: 

(L0WC0R) = (LWRLIM) = ($F7) 

Subsequent to reserving space at the bottom of unprotected 
core for the Load Time Data Storage Buffer, the new lower 
limit of load time core becomes - 

(DATCTR) - 1 >L0WC0R. 

6. Space is reserved in execution time core for the Execution 
Time Data Storage Block Reservation (as previously defined 
in the 1st paragraph of 28.8.2.3.2): 

(PR0BAS) >DATBAS 

(DATBAS) + (INPUT+2) > DATLIM 

(DATLIM) >PR0BAS & CSQLIM 
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A check is made for overflow of unprotected core as a result 
of reserving data. Overflow occurs if: 

a) (DATLIM) > (COMBAS) for ( COMBAS) + 

b) (DATLIM) > (COMLIM) for (COMBAS) = 

c) ( INPUT+3) f and (DATLIM)=( COMBAS) for (COMBAS) =£ 

d) (INPUT+3) £ and (DATLIM)=(COMLIM) for (COMBAS) = 

where (INPUT+3) = length of program relocatable storage of 
this program. If overflow occurs a jump is made to 0VFER1. 
(See step 7.) Otherwise, the program continues with step 
8. 

7. At the location whose label is 0VFER1, the location SW6 
is set to a -0, and a jump is made to NAMPR2 to further 
process the NAM block. 

8. At the location whose name is NAMJ12, the load time core 
address for the Execution Time Data Storage Block Reservation 
is recorded in DATRES: 

(CSQCTR) > DATRES 

9. Space is reserved in the command sequence in Load Time Core 
for the Execution Time Data Storage Block Reservation. The 
difference between this block reservation and the Load Time 
Data Storage Buffer described in Step 3 is that the latter 
remains in core until the end of either Subroutine Load or 
a Program Load Operation. 

The space reserved for the data block in Step 3 will not 
necessarily remain in core. Along with the rest of the 
command sequence storage it may be transferred to mass 
storage. The space reserved at this ti me, will pypnf-nally 



Oi 



be filled in by the contents of the Load Time Data Storage 
buffer set aside in Step 3. (Refer to item 28.6.7.) 

Within step 9, the space for the Execution Time Data Storage 
Block Reservation is set aside by 

(DATRES) + (INPUT+2) > CSQCTR 

(CSQCTR) > PROSTR 

10. The difference constant DATDIF is set to the difference 
between the starting address of the Execution Time Data 
Storage Block Reservation and the Load Time Data Storage 
Buffer: 

(DATBAS) - (DATSTR) — > DATDIF 
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11. An additional test is made for overflow of Load Time Core. 
Overflow of Load Time core occurs if 

(CSQCTR) (TABLIM) 

where (CSQLIM) at the time contains the storage limit for 
the Execution Time Data Storage Block Reservation in Load 
Time Core. Also, overflow of Load Time Core occurs if 

(CSQCTR) = (TABLIM) 

and 

(INPUT+3) =£0 

where (INPUT+3) = number of words to be reserved for loading 
the program whose NAM block is currently being processed. 

If overflow of Load Time Core has not occurred, proceed to 
step 13. If son, continue at step 12. 

12. If the command sequence word count in Load Time Core exceeds 
95, a return jump is made to the COREXT routine to transfer 
an integer multiple of 96 words to mass storage. Upon return 

from COREXT, the location CSQCTR is set to the limit address (^ 
in Load Time Core for the Execution Time Data Storage Block v - 

Reservation: 

(PROSTR) + (INPUT+2) CSQCTR 

Proceed to step 13. 

If the command sequence word count in Load Time Core is 95 
words or less, NAMPRO reacts as if overflow of unprotected 
core has occurred. This is because the contents of Load 
Time core must be transferred to mass storage to make room 
for loading another program. However, in the middle of a 
Loading Operation, only an integer multiple of 96 words may 
be transferred to mass storage. Therefore, there isn't enough 
room in load time core to load anothe. r program or to reserve 
space for data. 

If the overflow condition exists, a jump is made to 0VFER1. 
(See step 7.) 

If, to begin with, there was no overflow of Load Time Core, 
proceed to step 13. 

13. An entry is made in the Loader Table. The name "DATBAS" is 
entered into the Loader Table as an entry point name. The 

entry point address is equal to (DATBAS). The sign bit of r 

W0RD2 of this entry is set to a 1 as if this Loader Table ^- 

entry originated in the Table of Presets. The Loader 
Table entry is made using the TABSTR routine. (Refer to 
item 28.8.6.) 
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Prior to entering TABSTR, the following occurs: 

a) the location INPCTR is set to the 1st word address 
for storage of the name "DATBAS" 

b) -0 >LINK 

c) (DATBAS) =>ENTPNT 

d) >SW6 

Upon return from TABSTR, NAMPRO continues processing the 
NAM block at NAMPR2. 

3^9.2.3.3 Reserving Command Sequence Storage - NAMPR2 

Program Relocatable Command Sequence Storage is reserved by the 
sequence of coding beginning at NAMPR2. The value equal to the number 
of words to be set aside for program relocatable command sequence 
storage is contained in the fourth word of the input buffer, INPUT+3. 
If (INPUT+3) is zero, it is assumed that there is no program reloca- 
table command sequence storage for the relocatable binary program 

C ') whose NAM block is currently being processed. A transfer is made 

^ immediately to NAMPR3. 

If (INPUT+3) =£ 0, then the program whose NAM block is currently being 
processed has an execution time upper limit address equal to 

(PROBAS) -t- (INPUT+3). 

If the upper limit for this storage exceeds the upper limit of avail- 
able core, an overflow error has occurred. The upper limit of core 
' is either the common storage relocation base if common storage had 

been reserved, or che highest unprotected address in core+1 if no 
— 1 eonunofi— s-tor-age— had— been— r-ase rv ed . — NO overflow ha s occurred if either 



o 



( PROBAS )+( INPUT+3) £ (COMBAS) if (COMBAS) ± 
or 

( PROBAS )+( INPUT+3) £. (COMLIM) if (COMBAS) =0. 

If overflow occurs, the location SW6 is set to a -<0, and a jump is 
made to NAMPR3. If no overflow occurs, the execution time upi>er 
limit for program storage is fixed in CSQLIM as follows: 

If (CSQLIM) <( PROBAS )+( INPUT+3), ( PROBAS )+( INPUT+3) CSQLIM. 

The load time upper limit of program storage is fixed by - 
(CSQLIM) - (PRODIF) > CSQCTR 

A check is made for overflow into the Loader Table. This occurs 
when 

(CSQCTR) > (TABLIM) —S'O 

Ten Dummy entries are added to prevent, a Loader table 
overflow. 
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If Loader Table overflow does not occur, a jump is made to NAMPR3. 
If Loader Table overflow is the case, a check is made to see if the 
amount of unprotected core available to for Loader input is less than 
9 6~ wo r d s~r~ t he - s i z e — o f — 1 — s ec t o r ~o n - ma"ss~~ storage"; If 

(CSQCTR) - (LOWCOR) - 1 > 96, 

the command sequence still in core is entered onto mass storage by 
a return jump to the COREXT routine. If 

(CSQCTR) - (LOWCOR) - 1<96 

it is considered to be overflow of unprotected core, and the location 
SW6 is set to a -0. Processing of the NAM block continues at NAMPR3. 

3^.9.2.3.4 NAMPR3 - Print Program Name and Execution Time Relocation Base 

A test is made to determine if the current Loader Operation is a 
Program Load Operation. If this is a program Load Operation, bits 
and 1 of the entrance parameter in AINPUT are set to a binary 10. 
The program name can execution time relocation base will not be 
printed, and a jump is made to the location OVFTST to test for core 
overflow. 

If the Loader Operation is not Program Load, the name and execution 
time relocation base of the program whose NAM block is currently being 
processed, will be printed. The program name is recorded at the loca- 
tions INPUT+4, INPUT+5 and INPUT+6. Spaces are recorded at INPUT+2, 
INPUT+3 and INPUT+7. The address "INPUT+2" is placed in the Q 
register and the 16 bit value = (PROBAS) is placed in the A register. 
A return jump is made to the PRINT4 routine (refer to item 28.8.7.3) 
to list the name and relocation base of the program. During the opera- 
tion of PRINT4, the 16 bit binary number in A will be converted to the 
ASCII code for 4 hex digits. The 4 hex digits will be recorded in the 
output area at locations INPUT+8 and INPUT+9. The program name and 
execution time relocation base appear on a listing as 

SSSSXXXXXXSShhhh 
where - 

1. S indicates a space, 

2. X indicates an alphanumeric character (A-Z) or (0-9), and 

3. h indicates a hexadecimal digit (0-9) or (A-F). 

3^.9.2.3.5 OVFTST - Test for Core Overflow Condition 

At OVFTST, a check is made for overflow of unprotected core (if SW6 
= -0.) If no overflow has occurred, a jump is made to NXTINP to read 



r 
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and process the next input block. If overflow has occurred, an error 
indication of "E5" is printed using the PRINT3 subroutine. (Refer 
to item 28.8.7.1.) No more relocatable binary input blocks are read 
as Loading terminates. The error exit parameters will be recorded in 
AINPUT and QINPUT. A jump is made to TABCHK, an entry point in the 
BRANCH routine where the name TABCHK is referenced in NAMPRO. 
At TABCHK the Loader Table is examined for unpatched externals. The 
Procedure has been described previously in item 28.6.6.5. 



3C l9.2.4 Exit From NAMPRO 



If no core overflow had occurred, exit from NAMPRO is made with the 
following instruction: 



LABEL 



OPCODE 

JMP- 
EQU 



ADDRESS 

NXTINP,I 
NXTINP(123) 



REMARKS 

JUMP TO READ NEXT INPUT BLOCK 



If overflow of core had occurred, exit is made from NAMPRO with the 
following instruction: 



LABEL 



OPCODE 
JMP 



ADDRESS 
TABCHK 



REMARKS 



where TABCHK is declared as an external in the NAMPRO routine and 
as an entry point name in the routine whose name is BRANCH. 



3^9.2.5 Subroutines Used by and External to NAMPRO 



1. PRINT3 

2. PRINT4 

3 . COREXT 



is used to print error indications. 
28.8.7.1.) 



(Refer to item 



is used to print the program name and execution time 
relocation base of the program currently being read 
in. (Refer to item 28.8.7.3.) 

is used to dump the command sequence storage place 
in load time core by the Loader onto the mass storage 
unit containing the scratch area. The amount of 
data transferred during any one operation of COREXT is 
an integer multiple of 96. (Refer to item 28.8.10.) 

is used to make a Loader Table entry when data storage 
is reserved by the program whose name block is currently 
being processed. The name "DATBAS" is placed in the 
Loader Table as an entry point name. The entry point 
address = (DATBAS). (Refer to item 28.8.6.) 



RBDBZS 

RBDBZS is the routine which is used to process RBD and BZS blocks. 



6. TABSTR 
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3^9.3.1 Constant Tafcle Storage Referenced by RBDBZS 



NAMES USED IR DOCUMENTATION 



ASAV 
1IXCHT 

KStV 

cmaks 

CSQLIM 

DAT1AS 

DATDIF 

DATLEN 

DATLIM 

BNDSW I 

IKPCTR* 

INPREL 

INPWRD 

INPXCO 

NGRLSW 

PRQ1AS 

QSAV 

WRDCNT 



i***?* 



_S.T0RAGE_P0SITI0N_IN_C0NSTANT_TABLE. 

89 
27 
26 

1 
25 

6 

2 
184 
177 

5 

8 

15 

11 

10 

117 

9 

3 
90 
24 



The conatants are used in the following way: 

1. ASAV is used for temporary storage of operands in the A 

register. 

2. BLKCNT contains the word count for number of sequential loca- 

tions to be set to zero in a BZS block entry. 

3. BZSSW is set to a if an RBD block is to be processed. Also, 

it is set to a -1 if a BZS block is to be processed. 

4. COMIAS contains the common storage relocation base. 

5. C0UNT1 is used as a loop counter by the NXTWRD subroutine. 

(Refer to item 28.9.3.6.1.) 

6. CSQLIM contains the execution time core limit address (upper 

limit) for the conmand sequence of the program currently 
being loaded. (This is equal to 1 + address of last 
word of program at execution time.) 

7. DAT1AS contains the relocation base for the Execution Time 

Data Block Reservation. 

8. DATDIF contains the value equal to (DATBAS) - (DATSTR) where 

(DATSTR) = the relocation base for the Load Time Data 
Storage Buffer. 



V_ 
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9. DATLEN contains the number of words set aside for a data 
reservation. 

10. DATLIM contains the upper limit address (equal to last 

address + 1) of the Execution Time Data Storage 
Block Reservation. 

11. ENDSW is the end of block switch. It is set to a 1 when the 

last entry in the input block (either RBD or BZS) is 
being processed. Contains a zero at all other times. 

12. INPCTR contains the execution time address assigned to a word 

from the command sequence input. 

13. INPREL contains in bits and 1, the information which deter- 

mines which type of address relocation is assigned to 
a command sequence word from an input blov k entry. 

14. INPWRD contains a command sequence word from an input block 

entry. 

15. INPXCO contains the address constant INPUT where INPUT is the 

1st location of the area for storage of relocatable 
binary input blocks read by the Loader. 

16. NGRLSW is the negative relocation switch. It is set to a 1 

if negative address relocation is assigned to a word 
from an input block entry. It is set to a if the 
address relocation is positive, or if there is no 
address relocation. 

contains the Execution Time Relocation Base for the 
program currently being loaded. 

is used for temporary storage of operands in the Q 
register. 

is used as an address counter to reference words in the 
input block (either RBD or BZS) entries. 



17. PROBAS 

18. QSAV 

19. WRDCNT 

3*19.3.2 Entry to RBDBZS 



Both names, RBDPRO and BZSPRO are declared as entry point names in the 
RBDBZS routine and as externals in the LOADER routine. Entry to 
either of these routines is as follows: 



LABEL 



RBDPRO 



OPCODE 

JMP 
JMP 



ADDRESS 

RBDPRO 
BZSPRO 



REMARKS 



Command sequence data from an RBD block is placed in core by RBDPRO. 
The first entry in the RBD block contains the starting address for 
loading the command sequence data in the block together with its 
address relocation byte. Subsequent entries in an RBD block contain 
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the command sequence words to be recorded at consecutive locations 
beginning with the starting address. The address relocation byte in 
an RBD entry is 4 birs in size. The leading bit of all but the reloca; 



tion byte for the last entry in the block is set to zero. The leading 
bit of the relocation byte for the last entry in' the block is set to 
a one. 

3^9.3.3.1 Initialization for RBD Block Processing at RBDPRO 

The jump instructions SW2 and SW3 are two word jump instructions using 
relative addressing. The address in their respective second words 
are set during program execution. As part of initialization for 
RBDPRO, the address of jump instruction SW2 is set to SW2A. The 
address of jump instruction SW3 will be set to SW3A. Both the loop 
counter named C0UNT1 and the switch named BZSSW are set to zero. The 
address counter WRDCNT is set to the first word address of the input 
buffer, "INPUT". Each of these three locations is referenced by a 
closed subroutine called NXTWRD. This subroutine is used by both 
RBDPRO and BZSPRO in order to extract all the information pertinent 
to one entry in the input buffer. The details of the organization 
of the NXTWRD subroutine are described in item 28.9.3.6.1. 

3^9.3.3.2 Starting Address for Command Sequence Storage 

A return jump is executed to NXTWRD to extract the starting address 
for command sequence storage from the input buffer. Upon return from 
NXTWRD - 

1. INPWRD contains the value for the starting address. 

2. INPREL contains a 2 bit relocation byte. 

3. NGRLSW is set to zero. 

4. ENDSW is set to zero. 

The starting address may be either program relocatable, data storage 
relocatable or absolute depending on bits and 1 of INPREL: 

1. If (INPREL) = 00, (INPWRD) is an absolute value. 

2. If (INPREL) =01, (INPWRD) is a value relative to the value for 
the execution time program relocation base of (PROBAS). 

3. If (INPREL) =11, (INPWRD) is a value relative to the value for 
the relocation base of the Execution Time Data Storage Block 
Reservation or (DATBAS). 

If the starting address is program relocatable, the addresses of the 
jump instructions SW2 and SW3 contains the values to which they were 
set as described in item 28.9.3.3.1. If the starting address is data 
storage relocatable, the addresses for the jump istructions SW2 and 
SW3 are reset to SW2C and SW3C respectively. The starting address for 
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relocation by a return jump to the ADJUST subroutine. (Refer to 
item 28.9.3.6.2.) 

If the starting address is either data relocatable or absolute, and- 
if the address of the jump instructions stored at SW2 and SW3 are 
to be changed in the manner stated above, then - 

the addresses are changed prior to entering the ADJUST subroutine. 
Upon return from the ADJUST subroutine, a jump is made to SW2. 
Branching occurs according to the address in the jump instruction 
at SW2 as follows: 

1. Branching to SW2A: The execution time limit address for 
program relocatable input or (CSQLIM) is placed in ASAV. 
The value = (DATLEN)-(PRODIF) is placed in QSAV, and a 
jump is made to RBDPR1. 

2. Branching to SW2B: The execution time limit address for 
data storage = (DATLIM) is placed in ASAV. The value in 
DATDIF is placed in QSAV, and a jump is made to RBDPR1. 



c 



3. Branching to SW2C: The limit address communication region 
storage = "$E4" is placed in ASAV. The location QSAV is 
cleared to zero, and a jump is made to RBDPR1. 

The significance of the values placed in ASAV and QSAV will be described 
in item 28.9.3.3.3. 

3^9.3.3.3 RBDPR1 - Command Sequence Words for RBD Blocks 

An entry containing a command sequence word is extracted from the input 
block by a return jump to the NXTWRD routine. Upon return from NXTWRK - 



1. INPWRD contains the word of the command sequence. 

2. INPREL contains the 2 and 2 bits of the 4 bit relocation 
byte. 

2 

3. NGRLSW contains 2 bit of the 4 bit relocation byte. 

3 

4. ENDSW contains the 2 bit of the 4 bit relocation byte. 

The location ENDSW will always contain a zero except when the last 
entry in the block is to be processed. It will then contain a value 
of 1. The location NGRLSW will contain a zero if the word in INPWRD 
is either a 16 bit absolute value or bits 0-14 = a relative value with 
positive address relocation. NGRLSW will contain a value of 1 if the 
value of bits 0-14 of the location INPREL will be set to one of 4 
values: 

1. (INPREL) = 00 if (INPWRD) is an absolute value. 

2. (INPREL) = 01 if (INPWRD) is a value relative to the execution 
time program relocation base or (PROBAS). 
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3. (INPREL) = 10 if (INPWRD) is a value relative to the common 
storage relocation base of (COMBAS). 

"4^ — ( INPREL)-=-Tl~if~( INPWRD )~ is a value relative to the reloca- 
tion base for the Execution Time Data Storage Block Reser- 
vation. 



Adjusting the contents of INPWRD for address relocation is accomplished 
in the following way: 



TYPE OF RLCTN 



NGRLSW 



INPREL 



VALUE ADJUSTED FOR RLCTN 



ABSOLUTE 





00 


(INPWRD) 


POS PROGR. RLCTN 





01 


( INPWRD )+( PRO BAS) 


POS COM STOR RLCTN 





10 


( INPWRD )+( COMBAS) 


POS DAT STOR RLCTN 





11 


( INPWRD )+(DATBAS) 


NEG PROG RLCTN 


1 


01 


(INPWRD) -(PRO BAS) 


NEG COM STOR RLCTN 


1 


10 


(INPWRD)- (COMBAS) 


NEG DAT STOR RLCTN 


1 


11 


( INPWRD)- (DATBAS) 



Where negative relocation is involved, the value in INPWRD is actually 
the one's complement of a 15 bit number. This means that negative 
relocation is actually 

-(relative value + base address) 

or the complement of positive relocation. The address arithmetic 
necessary for adjusting a relative value for relocation is accomplished 
by the closed subroutine ADJOVF. The closed subroutine is entered by 
a return jump to a location in the constant table. (Refer to item 
28.8.3.) 

The address in INPCTR is the execution time address for the command 
sequence word stored in IfNPWRD. Upon return from ADJOVF, storage of 
the word in INPWRD takes place as follows: 

If ((INPCTR)) <£(ASAV), (INPWRD) — > (INPCTR) - (QSAV) , 

Storage occurs if the execution time storage address is less than 
the limit address. The address in INPCTR is increased by 1. If 
(ENDSW)=0, a jump is made back to RBDPR1 to process the next word in 
the RBD block. If (ENDSW)^O a jump is made to NXTINP to process the 
next input block. 

If (INPCTR) 2 (ASAV), the input has exceeded the limits of the area 
reserved for it. Branching occurs according to the address in the 
jump instruction as SW3 as follows: 



c 
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1. Branching to SW3A: An error has occurred due to overflowing 
the amount of space reserved in esecution time core for 
program relocatable command sequence currently being loaded. 
An error indication of "E5" is printed using the PRINT3 
subroutine." (See item 28«7»1.) 

2. Branching to SW3B: An error has occurred due to overflowing 
the amount of space reserved for the data block. An error 
indication of "E7" is printed using the PRINT3 subroutine. 

3. Branching to 3W3C: An error has occurred due to overflowing 
the amount of space in the unprotected area of the communica- 
tion region. An error indication of "E6" is printed using 
the PRINT3 subroutine. 

If one of the above error messages is printed, no more input blocks 
are read and the Loading Operation terminates. The error exit infor- 
mation is recorded and a jump is made to TABCHK. (Refer to item 
28.9.3.6.) 

3^9.3.5 BZSPR0 

Each entry in a BZS block contains the following information: 

1. A starting address which is the first word address of a 
block of core to be cleared to zero by the loader. 

2. A relocation byte for the starting address. 

3. An absolute number which is the size of the block of core 
to be cleared to zero by the loader. 

The relocation byte for each entry in a BZS block is 4 bits in size. 
The leading bit of all the relocation byte for the last entry in the 
block is set to zero. The leading bit of the relocation byte for 
the last enLry in the block is set to a one. 

3 c l9.3.4.1 Initialization for BZS Block Processing 

As part of initialization for BZSPR0, the address counter WRDCNT is 
set to the 1st word address of the storage area for the BZS block, 
= "INPUT". The switch named BZSSW is set to a -0 in order to process 
a BZS block. 

3^9.3.4.2 BZSPR1 - BZS Entries 

The jump instructions SW2 and SW3 are two word jump instructions using 
relative addressing. The addresses in their respective second words 
are set during program execution. Each time a jump is made to the 
location BZSPR1, the address in the jump instruction at SW2 is set 
for SW2A, and the address in the jump instruction at SW3 is set for 
SW3A. 
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The loader executes a return jump to NXTWRD to extract an entry from 
the BZS block. Upon return from NXTWRD the information from the 
_entry_is_stored_in the followin g wayi 



2. INPREL contains the 2 and 2 bits of the 4 bit relocation 



1. INPWRD contains the starting address. 

inpre: 

byte. 

2 

3. NGRLSW contains the 2 bit of the 4 bit relocation byte. 

3 

4. ENDSW contains the 2 bit of the 4 bit relocation byte. 

5. BLKCNT contains the size of the block to be cleared to zero 
by the Loader. 

The location ENDSW will always contain a zero except when the last 
entry in the block is to be processed. It will then contain a value 
of 1. The location NGRLSW will always contain a zero since the word 
in lINPWRD is either a 16 bit absolute value or a 15 bit relative 
value with either positive program or data storage relocation. The 
location INPREL will be set to one of 3 values: 

1. (INPREL) = 00 if (INPWRD) is an absolute value. 

2. (INPREL) = 01 if (INPWRD) is a value relative to the value f~ 
for the execution time program relocation base or (PROBAS). V. 

3. (INPREL) = 11 if (INPWRD) is a value relative to the value 
for the relocation base of the Execution Time Data Storage 
Block Reservation. 

3^9.3.4.3 Relocation for Starting Address 

A return jump is executed to the closed subroutine, ADJUST, to obtain 
the absolute value for a relative address in INPWRD for relocation. 
(Refer to item 28.9.3.6.2.) Upon return starting from ADJUST - 

1. INPCTR contains the starting address for command sequence 
storage adjusted for relocation. 

2. If the starting address for the BZS block is relative to the 
execution time data storage relocation base, the address in 
the jump instruction SW2, originally set to SW2D is reset 

to SW2E, while that in SW3 is set to SW3E. 

3. If the starting address for the BZS block is absolute, the 
address in jump instruction SW2, originally set to SW2D 

is reset to SW2F, while that in SW3 is set to SW3F. 

3^.9.3.4.4 Zero Storage in BZS Block 

The Loader proceeds to store zero at all execution time locations 

starting with the address in INPCTR and terminating with the address { 

equal to (INPCTR) + (BLKCNT)- 1. ^ 
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A jump is made to SW2 where branching occurs according to the address 
in the jump instruction at SW2 as follows: 

1. Branching to SW2D: T,e execution time limit address for 
program relocatable input or (CSQLIM) is placed in ASAV. 
The value = (DATLEN)-(PRODIF) is placed in QSAV, and a 
jump is made to BZSPR2. 

2. Branching to SW2E: The execution time limit address for 
data storage = (DATLIM) is placed in ASAV. The value = 
(DATDIF) is placed in QSAV, and a jump is made to BZSPR2. 

3. Branching to SW2F : T^e limit address for communication region 
storage = "$E4" is placed in ASAV. The location QSAV is 
cleared to zero, and a jump is made to BZSPR2. 

At BZSPR2 a test is made to see if the storage address in 
INPCTR is greater than or equal to the storage limit address 
in ASAV. If not, the load time storage location = (INPCTR) 
- (QSAV) is cleared to zero. The loop for storing zero in 
a location is repeated, increasing the contents of INPCTR 
by 1 and decreasing the contents of BLKCTR by 1 until - 

a. Either (BLKCTR)=0 in which the entire block of core is 
cleared to zero, or 

b. (INPCTR) = (ASAV) in which case the storage limit address 
has been exceeded. ^ N 

If b is the case, branching occurs as SW3 as follows: 

1. Branching to SW3D will occur if the starting address in the 
BZS entry is relative to the execution time program reloca- 
tion base. The address "SW3D" and flSW3A" are identical. 

2. Branching to SW3E will occur if the starting address is 
relative to the relocation base for the data block. The 
addresses "SW3B" and "SW3E" are identical. 

3. Branching to SW3F will occur if the starting address is 
absolute. The address "SW3F" and "SW3C" are identical. 

If a 2 is the case, the overflow condition has not occurred, and 
a jump is made to BZSPR3. At BZSPR3, a test is made to see if the 
last entry in the BZS block has been processed. If (ENDSW)=0, 
a jump is made to BZSPR1 to process the next entry in the block. 
If (ENDSW)=#3, a jump is made to NXTINP to read the next input block. 

318.3.5 Exit from RBDBZS 

Exit from either routine is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- NXTINP, I JUMP TO NXTINP TO READ 

EQU NXTINP(123) NEXT INPUT BLOCK 



CA138-1 



MAR 5 1971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IMS PAGE NO—? 11 1.55 

PRODUCT ma xap 1700 OPERATING SYSTEM 4B713 

PRODUCT Kin E006Hq.n VFRSION 1.0 MACHINF SERIES 1700 



If exit from either routine is caused by the occurrence of an overflow 
condition, exit from the RBD BZS routine is made with the following 
ins true tion: 



LABEL OPCODE ADDRESS REMARKS 

JMP TABCHK 

where the name TABCHK is referenced as an external within RBDBZS and 
as an entry point in the BRANCH routine. 

3^.9.3.6 Subroutines Used by and Internal to RBDPRO and BZSPRO 

There are two subroutines assembled into the same program with RBDPRO 
and BZSPRO. These are NXTWRD and ADJUST. 

3^.9.3.6.1 NXTWRD 

This subroutine is used to extract an entry from either an RBD block 
or a BZS block. An RBD block entry consists of a command sequence 
word together with its 4 bit relocation byte. A BZS block entry 
consists of a starting address for a BZS block reservation together 
with its 4 bit relocation byte and an absolute number which is the 
size of the BZS block reservation. If entry to NXTWRD is from RBDPRO, 
. the switch BZSSW has been set to zero. If entry to NXTWRD is from 
BZSPRO, the switch BZSSW has been made non zero and negative. 

If BZSSW is zero, NXTWRD will process an entry of the input block in 
the following ways: 

1. Of a 4 bit relocation byte (bits 0-3) right to left, 

a. bits and 1 are placed in INPREL, 

b. bit 2 is placed in NGRLSW, and 

c. bit 3 is placed in ENDSW. 

2. The command sequence word is placed in INPWRD. 

If BZSSW is non zero, NXTWRD will process an entry of the input block 
in the following way: 

1. Of a 4 bit relocation byte (bits 0-3 right to left): 

a. bits and 1 are placed in INPREL, 

b. bit 2 is placed in NGRLSW, and 

c. bit 3 is placed in ENDSW. 

2. The starting address for the BZS block reservation is placed 
in INPWRD. 
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3. The size of the BZS block reservation is placed in BLKCNT. 
36-9.3.6.2 ADJUST 

The ADJUST subroutine is used by BZSPR0 and RBDPRO to 

1. Determine the relocation base for the starting address of 
the BZS reservation in each entry of the command sequence, 
and 

2. If the address is not absolute, to increase the relative 
value by the appropriate relocation base. 

Upon entry to ADJUST, the address of concern is in INPWRD. All 15 
bit address arithmetic is carried out of the ADJOVF subroutine. Prior 
to entering ADJOVF, the A register contains the relative address 
contained in INPWRD. The relocation base is in the Q register. Upon 
return from ADJOVF, the result is placed in INPCTR. 

Address relocation is handled in one of three ways: 

1. Absolute Addresses = No Relocation 

No address relocation is necessary for absolute address. 
The contents of INPWRD is placed in INPCTR: 

(INPWRD) ;> INPCTR 

If the ADJUST routine determines that the value for the 
absolute starting address is either less than "$C5" or 
greater than "$E3", a jump is made to SW3 to print the appro- 
priate error indication and then to proceed to the error 
exit. If ADJUST determines that the absolute starting address 
was within the bounds of $C5-$E3, the addresses for the jump 
instructions at SW2 and SW3 are reset as follows: 

a. If entry to ADJUST was from RBDPRO, 

SW2C >SW2, and 

SW3C >SW3. 

b. If entry to ADJUST was from BZSPRO, 

SW2F >SW2, and 

SW3F — ^ SW3. 
Following this a jump is made from ADJUST. 

2. Program Relocatable Addresses 

Following a return transfer to ADJOVF, the relative address 
is increased by the command sequence relocation base, and 
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the result is placed in INPCTR: 

(INPWRD) + (PR0BAS) — > INPCTR 



A jump is made to exit from ADJUST. 

3. Data Storage Relocatable Addresses 

Following a return transfer to ADJ0VF, the relative address 
is increased by the data storage relocation base, and 
the result is placed in INPCTR: 

(INPWRD) + (DATBAS) > INPCTR 

a. If entry to ADJUST was made from RBDPR0, 

SW2B >SW2, and 

SW3B >SW3. 

b. If entry to ADJUST was made from BZSPR0, 

SW2E > SW2, and 

SW3E > SW3. 

3 c j.9.3.8 Subroutines Used by and External to RBDPR0 and BZSPR0 

c 

1. PRINT3 is used for printing error indications. (Refer to V 

item 28.8.7.1.) 

2. ADJ0VF is used by ADJUST for address arithmetic. (Refer to 

item 28.8.2.) 

3^9.4 ENTEXT 

The ENTEXT subprogram of the Loader is used to process EXT and ENT 
blocks. 

3 c i9.4.1 Constant Table Storage Referenced by ENTEXT 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 

DATLEN 177 

ENTPNT 13 

INPCTR 15 

INPWRD 10 

INPXCC 122 

LINK 14 

NGRLSW 9 

PR0BAS 3 

PR0DIF 171 

PR0LIM 181 

SW6 28 

TABLIM 7 
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4. 


INPWRD 


5. 


INPXCC 


6. 


LINK 



The constants are used in the following way: 

1. DATLEN contains the number of words set aside for the data 
reservation. 

2. ENTPNT contains the address (or the one's complement thereof) 
which is to be inserted into the 4th word of a Loader 
Table entry. For a LINK1 operation (patching), it 
contains an entry point address. For a LINK2 operation 
(linking), it contains the link address from the EXT 
block entry. 

3. INPCTR is used as an address counter to reference entries in 
the input block (either ENT or EXT). 

is used as a temporary storage location. 

contains the address constant = "INPUT-3". 

contains the address to be inserted into the 5th word 
of a Loader Table entry. For either a LINK! operation 
(patching) or a LINK2 operation (linking) it contains 
the link address from the Loader Table entry. 

7. NGRLSW is set prior to LINK1 operation to determine mode of 

addressing for patching (either relative or absolute). 

8. PROBAS contains the execution time relocation base for the 

program currently being loaded. 

9. PRODIF contains the word count for the amount of command 

sequence recorded on the mass storage unit containing 
the scratch area. 

10. PROLIM contains the execution time value for the upper limit 

(last address + 1) of the odd sector (1-95 words long) 
stored at the bottom of Load Time Core. 

11. SW6 is set to to enter an entry point into the Loader 

Table, or it is set to a -1 to enter an external. Also, 
as a result of a Loader Table Search, it contains a 
positive value which is added to (TABLIM) in order 
to locate a Loader Table entry with a name to match 
an input block entry. 

12. TABLIM contains the base address of the Loader Table. 

3^.9.4.2 Entry to ENTEXT 

The names ENTPRO and EXTPRO are declared as entry point names in the 
ENTEXT routine and as external names in the LOADER Routine. Entry 
to either of these routines is as follows: 
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LABEL 



OPCODE 

JMP 
"JMP 



ADDRESS 

ENTPRO 
EXTPR0- 



REMARKS 



319. 4.3 



ENTPRO 



An entry in an ENT block contains a 6 character entry point name and 
a 15 bit entry point address. ENTPRO will perform one of three 
functions based on the follwoing conditions: 



CONDITION 1: 



CONDITION 2 



CONDITION 3: 



CONDITION 4: 



is that there exists no entry in the Loader Table which 
contains a 6 character name to match the entry point 
name from the input block. ENTPRO will enter the entry 
point name and address into the loader table. W0RD5 
of the Loader Table entry is set to -0. 

is that there exists an entry in the Loader Table 
which contains a 6 character entry point name which 
matches the 6 character entry point name in the input 
block. The loader performs a special error operation 
where there is duplication of entry point names. 

is that there exists an entry in the Loader Table 
which contains a 6 character name for an external which 
matches the entry point name in the input block. The link 
address in WORD 4 of the Loader Table entry points to 
the beginning of a string of link addresses. The link 
addresses in this string are contained in command sequence 
storage entirely within the limits of Load Time Core, 
exclusive of the area at the bottom of Load Time Core 
containing the 1-95 words of the odd sector. In other 
words, the execution time value for each link address 
in the string must be greater than or equal to (PROLIM). 
ENTPRO using the LINK1 routine, will perform the necessary 
link operation to patch locations referencing this external 
name with the entry point address. 

is that there exists an entry in the Loader Table which 
contains a 6 character name for an external which 
matches the entry point name in the input block. The 
link address in WORD 4 of the Loader Table entry points 
to the beginning of a string of link addresses. The 
link addresses in this string are contained in command 
sequence storage which is recorded either entirely or 
in part on mass storage. In other words, in the link 
address string for this external name there is at least 
one link address whose execution time value is less 
than (PROLIM). 



N 
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Using the TABSTR routine, ENTPRO will enter the entry 
point name and address in the input block into the 
Loader Table. WORD 5 of this Loader Table entry will 
contain the address pointing to WORD 4 of the entry 
containing the matching external name. A linking 
operation similar to that described for condition 3 
will be performed, at the time an EOL record is read 
by the Loader. (See item 28.9.7.) 

3^9.4.3.1 ENTPR1 - ENT Block Entries 

ENT block entries are four words each. The first three words contain 
a 6 character entry point name. (Fewer than 6 characters in a name 
means that the ASCII code for spaces will be used as fill at the right 
end of the name.) If the entry point address is program relocatable, 
the fourth word of the entry will contain a positive number which is 
the relative 15 bit entry point address. If the entry point address 
is absolute, the fourth word of the entry will contain a negative 
number which is the one's complement of the 15 bit entry point 
address. The end of the input block is marked by a word of either 
40 or -0 in place of an entry point name. 

INPCTR is used by the closed subroutine NXTNAM (see item 28.9.4.6.1) 
to extract entries from the ENT block. Initially INPCTR is increased 
by 4 upon each entry to NXTNAM from ENTPRO. This will set INPCTR to 
the first word address of the next entry in the ENT block or, as 
a result of the return jump to NXTNAM either - 

la. -(( INPCTR )+3) ENTPNT 

if ((INPCTR)+3) 0, or - 
lb. ((HNPCTR)+3) + (PR0BAS) ENTPNT 

if ((INPCTR+3) _ 0, and 
2. (INPCTR) + 4 INPCTR 

There will be no return from NXTNAM if ((INPCTR)) = 0. Instead, 
there will be a jump from the NXTNAM subroutine to NXTINP to process 
the next input block. 

3^9.4.3.2 Searching the Loader Table for Matching Name 

There is a return jump to the closed subroutine TABSCH to find an 
entry in the Loader Table containing a 6 character name to match 
the entry point name from the input block. Upon return from TABSCH 
only one of the following occurs: 
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1. If a matching name had been found, the first address of 
the Loader Table entry is (TABLIM)+(SW6) where 

— — a. — (-TABLIM)— is-the— lowest-core-address-occupied-by_the 

Loader Table, and - 

b. (SW6) is an increment equal to the difference between 
the lowest address of the Loader Table and the first 
address of the Loader Table entry with the matching 
name . 

2. If a matching name had not been found, (SW6) is negative. 

3^.9.4.3.3 No Matching Name 

If a matching name is not found, the entry point name from the input 
block must be entered into the Loader Table. The Loader Table entry 
is made as follows: 

1. LINK is set to -0, 

2. SW6 is set to 0, and 

3. a return jump is made to TABSTR. 

Upon return from TABSTR, (ENTPNT) will have been placed in WORD 4 V^ 

and (LINK) will have been pldced in WORD 5 of the Loader Table entry. 
Following the terutn from TABSTR, there is a jump to ENTPR1 to 
process the next input block. 

3T .9.4.3.4 Matching Name Found 

If a matching name had been found in the Loader Table, the 1st word 
address of the entry is given by 

(TABLIM)+(SW6) 

The location (TABLIM)+(SW6)+3 contains the address for this name. 
This address is then pladed in LINK. If this address is an entry 
point address, then - 

(LINK) > 

If this address is a link address, then 
(LINK) < 0. 

3T .9.4.3.5 Matching Name is Entry Point 

It is an error condition of an entry point name in the ENT block 

matches an entry point name in the Loader Table. A return jump is 

made to PRINT3 to print the error message "E8". A return jump is ^ 

also made to PRINT5 to list the entry point name. A jump is made V__ 

to the location whose label is STOP, whereupon the Loading operation 

is terminated. 
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3^ .9.4.3.6 Matching Name is External 

If the matching name found in the Loader Table entry is an external 
name, the contents of the location LINK is the one's complement of 
the 1st address in the link address string. The contents of LINK is 
therefore complemented in order to obtain the link address. Next, 
it is necessary to determine if the entire link address string is or 
is not contained within the limits of Load Time Core (exclusive of 
the area containing the odd sector). In order to test for this, 
a return jump isi:made to a closed subroutine within the ENTEXT 
subprogram. The location at which this routine is entered has the 
name EXAMEN. Upon return from the EXAMEN subroutine one of these 
two conditions exists: 

CONDITION 1: (A) = -0 if the link address string is contained entirely 
within the desired area of Load Time Core (load Time 
Core exclusive of the odd sector), or - 

CONDITION 2: (A) = if the link address string is recorded either 

entirely or in part on the mass storage unit containing 
the scratch area. 

If Condition no. 1 occurs, then - 

1. WORD 4 of the Loader Table entry for the matching name is 
filled with the entry point address: 

(ENTPNT) — > (TABLIM)+(SW6)+3 

(The link address for this entry is replaced with an entry 
point address.) 

2. A return jump is made to the LINK1 routine to replace each 
link address in the string with the entry point address. 
Upon return from LINK1 a jump is made to ENTPR1 to process 
the next entry in the ENT block. 

If Condition no. 2 occurs, then - 

1. The address = "(TABLIM)+(SW6)+3" is placed in the location 
LINK, while (ENTPNT) = the entry point address. 

2. The location SW6 is cleared to zero. 

3. A return jump is made to TABSTR. 

Upon return from TABSTR, the address in ENTPNT was placed in WORD 4 

of the new Loader Table entry, while the address in LINK was placed 

in WORD 5. A jump is made to ENTPR1 to process the next entry in the 
block. 

3^.9.4.4 EXTPRO 

An entry in an EXT block contains a 6 charzcter external name and a 
15 bit link address. EXTPRO will perform one of three functions 
based on the following conditions: 
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CONDITION 1: 



CONDITION 2: 



CONDITION 3: 



is that there exists no entry in the Loader Table 
which contains a 6 character name to match the external 
name from the input block. EXTPRO will enter the 
-external-name-and-the—link-address-into-the-Loader— Table. - 

WORD 5 of this Loader Table entry is set to a -0. 

is that there exists an entry in the Loader Table which 
contains a 6 character entry point name which matches 
the external name in the input block. The link address 
for the name in the input block entry is the beginning 
of a link address string contained entirely within the 
desired limits of Load Time Core. EXTPRO, using the 
LINK1 routine, will perform the necessary link opera- 
tion to patch locations referencing this external name 
with the entry point address. 

is that there exists an entry in the Loader Table which 
contains a 6 character external name which matches the 
6 character external name in the input block. The 
link address in WORD 4 of the Loader Table entry is 
the beginning of a link address string contained 
entirely within the desired limits of Load Time Core. 
The link address from the entry in the input block is 
also the beginning of a string contained entirely 
within the desired limits of Load Time Core. The link 
address string referenced by WORD 4 of the Loader 
Table entry is ''tied" to the end of the link address 
string referenced by WORD 4 of the input block entry. 
This is accomplished by using the LINK2 subroutine. 

is that there exists an entry in the Loader Table which 
contains a 6 character name for an external which matches 
the external name in the input block. The link address 
in WORD 4 of the Loader Table entry points to the 
beginning of a string of link addresses. However, this 
link address string is contained in command sequence 
storage recorded either entirely or in part on the 
mass storage device containing the scratch area. Using 
the TABSTR routine, EXTPRO will enter the external 
name and link address from the input block entry into 
the Loader Table. WORD 5 of the new Loader Table entry 
will contain the address pointing to WORD 4 of the 
previous Loader Table entry containing the matching 
external name. 

3^.9.4.4.1 EXTPR1 - EXT Block Entries 

EXT block entries are four words each. The first three words contain 
a 6 character external name. (Fewer than 6 characters in a name 
means that the ASCII code for spaces will be used as fill at the right 
end of the name.) If the link address is program relocatable, the 



CONDITION 4: 
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fourth. -word of the entry will contain a positive number which is the 
relative 16 bit link address. If the link address is absolute, the 
fourth word of the entry will contain a negative number which is the 
one's complement of the 15 bit entry point address, the end of the 
input block is marked by a word of zeros in place of an entry point 
name. 

INPCTR is used by the closed subroutine NXTNAM to extract entries from 
the EXT block. Initially INPCTR is set to the address "INPUT- 3" by 
EXTPR0. The contents of INPCTR is increased by 4 upon each entry to 
NXTNAM from EXTPR0. This will set INPCTR to the first word address 
of the next entry in the EXT block. As a result of the return jump 
to NXTNAM either - 

la. -((INPCTR)+3) > ENTPNT 

if ((INPCTR)+3) <0, or - 
lb. ((INPCTR)+3)+(PR0BAS) >ENTPNT 

if ((INPCTR)+3) >0, and - 
2. (INPCTR)+4 >INPCTR 

There will be no return from NXTNAM if ( (INPCTR) )=0. Instead there 
will be a jump from NXTNAM to NXTBLK to process the next input block. 

3T .9.4.4.2 Searching Loader Table for Matching Name 

There is a return jump to the closed subroutine TABSCH to find an 
entry in the Loader Table containing a 6 character name to match 
the external name from the input block. Upon return from TABSCH 
only one of the following occurs: 

1. If a matching name had been found, the first word address 
of the Loader Table entry is (TABLIM)+(SW6), where - 

a. (TABLIM) is the 1st address of the Loader Table, and - 

b. (SW6) is an increment equal to the difference between 
the lowest address of the Loader Table and the first 
address of the Loader Table entry with the matching name, 

2. If a matching name had not been found, (SW6) is negative. 

3T .9.4.4.3 No Matching Name 

If a matching name is not found, the external name from the input 
block must be entered into the Loader Table. The Loader Table 
entry is made as follows: 



o 
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1. LINK is set to -0, 

2. SW6 is set to -0, and 



3. a return jump is made to TABSTR. 

Upon return from TABSTR, (ENTPNT) will have been placed in WORD 4 
of the Loader Table entry, and (LINK) will have been placed in WORD 5,, 
Following the terutn from TABSTR there is a jump to EXTPR1 to process 
the next input block. 

3T .9.4.4.4 Matching Name Found 

If a matching name had been found in the Loader Table, the 1st address 
of the entry is given by - 

(TABLIM)+(SW6). 

The location (TABLIM)+(SW6)+3 contains the address for the name. This 
address is then placed in LINK. If this address is an entry point 
address, then - 

(LINK) ^ °« 



i 



If this address is a link address, then - V^ 

(LINK) <1 0. 

3T .9.4.4.5 Matching Name is Entry Point 

If the matching name in the Loader Table entry is an entry point name, 
the contents of the location LINK is the one's complement of the 1st 
address in a link address string. The contents of LINK are therefore 
complemented in order to obtain the link address. Next, it is necessary 
to determine if the entire link address string is or is not contained 
within the limits of Load Time Core (exclusive of the area containing 
the odd sector). In order to test for this, a return jump is made 
to a closed subroutine within the EXTENT subprogram. The location 
at which this routine is entered has the name EXAMEN. Upon return 
from the EXAMEN subroutine one of these two conditions exists: 

CONDITION 3: (A) = -0 if the link address string is contained entirely 
within the desired area of Load Time Core (Load Time 
Core exclusive of the odd sector), or - 

CONDITION 4: (A) = if the link address string is recorded either 

entirely or in part on the mass storage unit containing 
the scratch area. 
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If condition 3 occurs, the beginning of the link address string 
referenced by the Loader Table entry is tied to the end of the link 
address string referenced by the input block entry. This is accomplished 
by a return jump to the LINK2 subroutine. (See item 28.8.9.) 

If Condition 4 occurs, theprocedure to be followed is that specified 
by Condition 2 of item 28.9.4.3.6. However, prior to the return 
jump to TABSTR, the location SW6 is set to -0 instead of 0. 



3^ .9.4.5 Exit from ENTEXT 



The exit from either of these routines is with the following instruc- 
tion: 



LABEL 



OPCODE 

JMP- 
EQU 



ADDRESS 

NXTINP,I 
NXTINP(123) 



REMARKS 

JUMP TO NXTINP TO READ 
NEXT INPUT BLOCK 



In the event the same name is declared as an entry point name by more 
than one program being loaded, an exit is made from the EXTENT routine 
with the following instruction: 



LABEL 



OPCODE 

EXT* 
JMP 



ADDRESS 

STOP 
STOP 



REMARKS 



where the name STOP is an entry point in the LST0UT subprogram. (See 
item 28.8.7.2.) 

3T .9.4.6 Subroutines Used by and Internal to ENTPR0 and EXTPR0 

The NXTNAM routine is used by both ENTPR0 and EXTPR0 to extract the 
next entry to be processed from the input block. The EXAMEN routine 
will slew through a string of link addresses to determine if they 
are entirely in core, or if they are either entirely or in part located 
on mass storage. 

3^.9.4.6.1 NXTNAM 

This subroutine is used to extract an entry from either an EXT block 
or an ENT block. A single word entry in either type of block consists 
of a 6 character name and a 15 bit address as follows: 
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Char 1. 


Char 2 




Char 3 


Char 4 






Char 6 




Char 5 




Address 



WORD 1 
WORD 2 
WORD-S- 
WORD 4 

Upon entry to NXTNAM, the contents of INPCTR is increased by 4 to set 
it to the first word address of the next entry to be processed. If 
((INPCTR)) is either a +0 or a -0, the last entry of the input block 
had been processed. 

NXTNAM will jump to NXTINP to process the next input block. If 
((INPCTR)) is not zero, NXTNAM will look at the 15 bit address in the 
last word of the entry. If ((INPCTR)+3) is negative, it is the one's 
complement of a 15 bit address which is absolute. NXTNAM will place 
the one's complement of the contents t.f the 4th word of the entry in 
ENTPNT : 

-((INPCTR)+3) > ENTPNT 

If this address is positive, it is a program relocatable address. 
NXTNAM will add the relative value in word 4 of the entry to the pro- 
gram relocation base and place the result in ENTPNT: 

(INPCTR)+4 > INPCTR 

A jump is made to the exit from NXTNAM. 
3^ .9.4.6.2 EXAMEN 

This routine will slew through a link address in the following way: 

1. Get the first link address in the string = (LINK). If (LINK) = 
$7FFF the end of the string has been reached. The entire 
string sits in Load Time Core. Place a -0 in the A register 
and go to exit. If (LINK) f $7FFF, record address and go to 
step 2. 

2. If execution time value of current link address in string is 
less than (PROLIM), the link address is not within the 
desired limits of Load Time Core, Place a +0 in the A register 
and go to exit. Otherwise, continue at Step 3. 

3. Given the execution time value for the current link address 
in string, compute the load time value: 

load time address = execution time address + (DATLEN)-(PRODIF) 

4. Given the load time value of the current link address, go to 
that location, pickup the execution time value of the next 
link address in the string. Replace current link address with 
next one in string. Go back to step 2 and continue operating 
in slew loop. 
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3^.9.4.7 Subroutines Used by and External to ENTPRO and EXTPRO 

1. TABSCH is used to search the Loader Table for a name to match 

the name in the input block entry being processed. 
(See item 28.8.5.) 

2. TABSTR is used to enter a name from the input block entry 

being processed into the Loader Table. (See item 
28.8.6.) 

3. LINK1 is used to patch each location in a string of link 

addresses with the entry point address for the name in 
the input block entry being processed. (See item 
28.8.8.) 

4. LINK2 is used to tie two strings of link address together. 

(See item 28.8.9.) 

5. PRINT3 is used by ENTPRO to print an error indication when 

it encounters an entry point name in the input block 
which matches an entry point name in the Loader Table. 
(See item 28.8.7.1.) 

6. PRINT5 is used by ENTPRO to print the entry point name causing 

the error described in 5. (See item 28.8.7.4.) 

3^.9.5 XFRPR0 

XFRPR0 is the routine which processes an XFR block. 
3^.9.5.1 Constant Table S t orage Referenced by XFRRPO 

NAME USED IN DOCUMENTATION STORAGE POSITION IN CONSTANT TABLE 



A INPUT 

BLANKS 

CSQCTR 

CSQLIM 

DATLEN 

ENDINP 

INPUT 

PROBAS 

PROSTR 

XFRNAM 



161 

18 

183 

6 

177 

17 

29-88 

3 

185 

92-94 



The constants are used as follows: 

1. AINPUT contains one of the entrance parameters for the 

Loader Operation. 

2. BLANKS a constant = ASCII code for 2 spaces. (BLANKS) 

= $2020. 
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3. CSQCTR 



4. CSQLIM 

5. DATLEN 

6. ENDINP 

7 . INPUT 

8. PROBAS 

9. PR0STR 
10 . XFRNAM 

3^.9.5.2 Entry to XFRPRO 



contains one plus the highest load time address 
occupied by the command sequence iorage of the 
-program_whose_XF_R_b.lock_is_currently being pro- 
cessed. 

contains one plus the highest execution time address 
occupied by the command sequence storage of the 
program whose XFR block is currently being processed. 

contains the number of words set aside for the 
data block. 

contains the highest load time address for command 
sequence storage. 

is the 1st location of a 60 word area reserved 
for storage of relocatable binary input. 

is set to the execution time relocation base for 
the next relocatable binary program to be loaded. 

is set to the load time storage base for the next 
relocatable binary program to be loaded. 

contains the 6 character transfer name from the last 
XFR block processed which had a name (see item 
28.9.5.3.) 



The name XFRPRO is declared as an entry point name in the XFRPRO 
routine and as an external in the LOADER routine. Entry to XFE p R0 
is made with the following instruction: 



LABEL 



OPCODE 

JMP.i 



ADDRESS 
XFRPRO 



REMARKS 



S^^^^ Recording Transfer Name 



When the Loader is brought into core, the locations XFRNAM, 
NFRNAM+1 & XFRNAM+2 are set to zero. If the XFR block contains 
a transfer name, it is recorded in the locations INPUT+1, INPUT+2, 
and INPUT+3. If the XFR block does not contain a transfer name, 
each of these 3 locations contains the ASCII code for 2 spaces. 

If the XFR block contains a name, XFRPRO replaces the current contents 
of XFRNAM, XFRNAM+1 and XFRNAM+2 with the ASCII code for this 6 
character name. 



V. 



CA138-1 



MAR 5 1971 

CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IM§ PAGE NO-JllL 40 

PRODUCT mamf 1700 OPERATING SYSTEM 4B711 

Oj PRODUCT mo E006*3.0 vfrsidn 1.0 machinf sfbifs 1700 



3^.9.5.4 Recording Relocation Base for Next Program 

Prior to the exit from XFRPRO: 

1. (CSQLIM) >PR0BAS where (PROBAS) = exec, time relocation 

base of next program to be read in. 

2. (CSQCTR) >PR0STR where (PROSTR) = load time storage base 

of next progran to be read in. 

3. (CSQCTR)+(DATLENJ— >- ENDINP where (ENDINP) - highest load 

time core location to be occupied by 
command sequence storage. 

dT.9.5.5 Exit from XFRPRO 

A test is made to determine the type of Loader Operation is in progress, 
If bits and 1 of AINPUT are set to 0, the Loader Operation is 
Relocatable Binary Load. Exit from XFRPRO is then made with the 
following instruction. 

LABEL OPCODE ADDRESS REMARKS 

JMP- NXTINP, I GO TO NXTINP TO BEGIN 

EQU NXTINP (123) LOAD OF NEXT PROGRAM 

Upon execution of this instruction the Loader will look for the next 
input block which must be one of the following: 

1. The NAM block of the next program, 

2. a hex block 

3. An EOL block 

4. if no data is read by the Loader, it is the same as if an 
EOL block had been received. (See item 29.1.4.1.) 

If the Loader Operation is either a Subroutine Load or a Program 
Load, exit from XFRPRO is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP ALRMOK 

where the name ALRMOK is referenced as an external in XFRPRO and 
as an entry point in the LOADER routine. (See item 28.9.1.4.1.) 

3T.9.6 HEXPRO 

HEXPRO is the routine which is used to process a HEX block. 
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31 .9.6.1 Constnat Table Storage Referenced By HEXPR0 



NAME USED IN DOCUMENTATION 



STORAGE POSITION IN CONSTANT TABLE 



ASAV 

BLANKS 

COMBAS 

CSQCTR 

CSQLIM 

DATBAS 

DATCTR 

DATDIF 

DATLEN 

DATSTR 

D IF CON 

INPCTR 

INPREL 

INPUT 

INPWRD 

INPXC1 

L0WC0R 

LWRLIM 

NAME 

NGRLSW 

PR0BAS 

PRODIF 

QSAV 

SCANSW 

SECTNO 

SECTOR 

SW6 

SYMSTR 

TABLIM 

WRDCNT 

The constants are used as follows: 

1. ASAV is used for temporary storage of the operand in the 

A register. 

2. BLANKS contains the ASCII code for 2 spaces = $2020. 

3. COMBAS contains the common storage relocation base. 

4. CSQCTR contains the limit address of the input area (last 

address + 1) for storage of hex correction constant. 

5. CSQLIM contains upper limit of command sequence (last address 

+ 1) at execution time. 

6. DATBAS contains the relocation base for the Execution Time 

Data Storage Block Reservation. 



89 

18 

1 

183 

6 

5 

182 

184 

177 

180 

186 

15 

11 

29-88 

10 

118 

179 

191 

95-98 

9 

3 

171 

90 

22 

173-174 

198 

28 

19 

7 

24 
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7. 


DATCTR 


8. 


DATDIF 


9. 


DATLEN 


10. 


DATSTR 


11. 


D IF CON 


12. 


INPCTR 



13. INPREL 

14. INPUT 

15. INPWRD 

16. INPXC1 

17. iLOWCOR 

18. LWRLIM 

19. NAME 

20. NGRLSW 



21. PROBAS 



22. PROD IF 



contains the limit address of the Load Time Data 
Storage Buffer. 

contains the difference equal to - 

(DATBAS)- (DATSTR). 

contains the number of words to be set aside for 
the data block reservation, = (DATCTR) -(DATSTR) . 

contains the relocation base for the Load Time Data 
Storage Buffer. 

is used for temporary storage. 

is the address counter which is used for storage 
of hex correction constants in the input area. 

contains the terminating character of a field in the 
HEX block when the feild is extracted using the SCAN 
routine. 

is the storage area for input blocks read by the 
Loader. 

contains the binary value for numeric fields extracted 
from the input area by the SCAN routine. (See item 
28.8.1.) 

contains the address constant "INPUT+1". 

contains the lower limit address (starting address -1) 
for Load Tome Core, 

=(LWRLIM)+( DATLEN) 

contains the lower limit of unprotected core, 

=($F7) 

contains the ASCII code for the name used in the 
starting address field of the HEX block. 

contains a if there is no loading algebraic sign 
for a numeric field in the HEX block. It contains 
a +1 if the leading algebraic sign is legal and is a 
"+". It contains a -1 if the leading algebraic sign 
is legal and is a "-". 

contains the program relocation base for HEX block 
correction constants. (For additional information 
refer to item 28.9.6.4.2 on starting addresses.) 

contains the word count of the command sequence 
on mass storage. 
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23. QSAV 
2A. SCANSW" 
25. SECTN0 



is used for temporary storage of the operand in the 
Q register. 



26. 


SECTOR 


27. 


SYMSTR 


28. 


TABLIM 


29. 


WRDCNT 



is used as a bank of switches set prior to entry to 
SCANSW. See item 28.9.6.4.1 for use of SCANSW. 

is the name for the 1st of 2 locations which contains 
a 30 bit number which is the absolute value for a 
starting sector for an 1/0 operation. The 15 most 
significant bits are located in bits 0-14 of SECTN0. 
The 15 least significant bits are located in SECTNO+1, 

contains the word count for 1 sector on mass storage, 
= 96. 

is used as storage for up to 6 characters of a field 
extracted from the input block by the SCAN routine. 

contains the base address of the Loader Table. 

is used as the character reference counter in order 
to extract characters from the input area. Bits 1-15 
of WRDCNT are set to the address of the character. 
Bit = if the character is in the left half or =1 
if in the right half of the word. 



j-1,.9.6.2 


Communication 


Region Const* 




CONSTANT 




LOCATION 




$7FFF 




$42 = MASKl 




$8000 




$21 = MASK2 


jl .9.6.3 


Entry to 


HEXPR0 



The name HEXPR0 is declared as an external in the LOADER routine and 
as an entry point in the HEXPR0 routine. The HEXPR0 routine is entered 
from LOADER with the following instruction: 



LABEL 



OPCODE 
JMP 



ADDRESS 
HEXPR0 



REMARKS 



j'-j .9.6.4 Processing a HEX Block 



HEXPR0 will extract correction constants from entries in the HEX 
block and store them at consecutive locations beginning with a 
starting address for the operation. The starting address is contained 
in the first entry of the input block. Subsequent entries each 
contain a correction constant together with its relocation byte. 
Entries within the HEX block are separated by commas. The last entry 
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in the block is followed by a carriage return (or a space if the input 
is from the card reader). A correction constant is missing if two 
commas occur with no entry data to separate them. The contents of 
the location which would have received the missing correction constant 
is not disturbed by HEXPRO. HEXPRO terminates operation when either 
the last entry in the block is processed or when an error has occurred 
while processing the HEX block. 

A HEX block may have a maximum of 120 characters including the 
carriage return which is the last character of the block. (A 
space is accepted in place of a carriage return in case the input 
is from the card reader.) 

Immediately upon entry to HEXPRO, a test is made for the proper termi- 
nating character in the 120th character position. If it is neither 
a space nor a carriage return, an illegal character of $00 will be 
inserted in its place. Consequently when HEXPRO encounters this 
illegal character during block processing, an error message will 
be printed and further processing of the HEX block is terminated. 

3T .9.6.4.1 Extracting HEX Block Entries 

Entries within the HEX block may contain terms which are either names 
of up to 6 characters or hexadecimal numbers of up to 4 digits. 
The subroutine, SCAN, is used to extract a term of an entry from 
the. input block. The SCAN sburoutine is entered by a return jump. 
Upon entry to the SCAN subroutine, the bits 0-2 of the location SCANSW 
may have the following setting: 

[ 1. Bit = 1 if the term is assumed to be a hex number, or - 

h = if no such assumption is made by the calling program. 

r 

2. Bit 1 = 1 if the term may have no leading algebraic sign of 

I M +", or - 
= if the term may have no leading algebraic sign of 

) 3. Bit 2 = 1 if the term may have no leading algebraic sign of 

"-", or - 



I 



= if the term may have no leading algebraic sign of 



It I! 



o 



In addition, if the term is numeric, the SCAN subroutine will pick 
up the ASCII characters for the digits of the number as well as 
the binary value of the number whenever bit 3 of SCANSW is set to 
1. Unless the A register is zero upon entry to SCAN, it is assumed 
that the leading character of the term about to be processed is in 
bits 0-7 of the A register. Upon return from SCAN: 

1. If the term is a name, the locationsr.SYMSTR to SYMSTR+2 
contain the ASCII code dor up to 6 characters of the name. 
If the name contains fewer than 6 characters, the unused 
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character positions are spac filled. The terminal character 
is in bits 0-7 of INPREL. The terminal character may be 
either the 7th character of the name or the first non 



alphanumeric character (neither A thru Z nor thru 9) 
to occur prior to the 7th character position. The location 
NGRLSW will be set to either -1, or +1 depending on 
whether the name was preceded by a "-" sign, no sign or 
a "+" sign. 

2. If the term is numeric, the location is always zero. The 
location INPWRD contains the binary value. If bit 3 of 
SCANSW was set to a "1" the locations SYMSTR+1, SYMSTR+2 
and the left half of SYMSTR+3 contain the ASCII code for 
either: 

a. Up to 5 decimal digits, or 

b. a "$" followed by up to 4 hexadecimal digits. 

3T .9.6.4.2 Starting Address 

The starting address may consist of either an entry point name 

(up to 6 characters) with or without an increment, or an absolute 

hexadecimal address of up to 4 hex digits and no increment. If 

the starting address is absolute, it is extremely important 

that the hexadecimal number be preceeded by "$". It is otherwise 

assumed to be a decimal number. However, where an increment is 

used with an entry point name, the increment is assumed to be 

a hexadecimal number. Also, neither an absolute starting address 

nor an entry point name may be preceded by an algebraic sign of 

114.11 or n_ii although a hexadecimal increment may have such a leading 

algebraic sign. 

3T .9.6.5.3 Entry Point Names and Hexadecimal Increments As a Starting Address 

The A register is ste to 0. Then there is a return transfer to SCAN. 
Upon return from SCAN, a six character name is stored at the 3 loca- 
tions SYMSTR, SYMSTR+1 and SYMSTR+2. The name must appear in some 
entry of the Loader Table, and the address associated with the name 
must be an entry point address. A return jump is made to TABSCH 
to search for the entry point name in the Loader Table. Upon return 
from TABSCH one of the following occurs: 

1. If (SW6) is negative, the entry point name does not appear 
in the table. A return jump is made to the error subroutine 
PRINT3 to print an error indication of "E13". Another 
return jump is made to the subroutine PRINT5 to print the 
entry point name. A jump is made to NXTINP to process the 
next block of input. 



f 



r 
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2. If ((TABLIM)+(SW6)+3 is negative, there is an entry in 
the Loader with a name to match the entry point name. 
However, the address for this name is the one's complement 
of a 15 bit link address. The error procedure described 
in the previous paragraph takes place. 

3. If ((TABLIM)+(SW6)+3) is positive, it is taken as the 15 
bit address associated with the entry point name in the 
starting address. This address is placed in INPCTR. 
This address is also placed in PROBAS. 

Upon return from SCAN, the character which follows the entry 
point name is contained in the location (INPREL). If this 
character is a comma, there is no hexadecimal increment included 
in the starting address. If this character is a plus or minus, 
there is either a positive or negative increment included in the 
starting address. 

The A register is set to the ASCII code for the leading algebraic 
sign - 

(INPREL) >A. 

A second return jump is made to SCAN to pick up the binary value 
of this increment. Upon return from SCAN, (SYMSTR) must be zero, 
(INPWRD) must contain the binary value of the increment (or its one's 
complement if negative) and (INPREL) must contain a comma. If any 
one of these conditions is not met, a return jump is made to the 
PRINT3 error subroutine where the error indication "E13" is printed. 
A return jump is made to PRINT5 to print the name. A jump is made 
to NXTINP to read the next input block. If no error had occurred, 
(INPWRD) is added to (INPCTR) and the result is placed in INPCTR. 
NOTE: In a HEX block, the hexadecimal increment for the starting 
address is the only number that may have a leading algebraic sign. 
Numeric starting addresses may not have a leading algebraic sign. 
Also, if a numeric starting address is not followed by a comma, 
the error procedures described above occurs. 

3^.9.6.4.4 Absolute Number as a Starting Address 

Upon the return from the first return transfer to SCAN, an 
absolute starting address is assumed if (SYMSTR) is zero and INPWRD 
contains a binary value. This value is placed in INPCTR. The location 
INPREL must contain a comma. Any other character would cause an 
error operation similar to that described in item 28.9.6.4.2. 



o 
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3^ .9.6.4.5 Preseting Data with HEX Correction Constants 

Data storage may be preset during a loading operation using~HEX" 



corrections. The starting address consists of either the entry point 
name "DATBAS" + HEX increment or this entry point name with no 
increment. 

3T .9.6.4.6 Limits of Core Which may be Preset with HEX Correction Constants 

HEX correction constants may not be stored in locations in protected 
core. The two areas of execution time core which may be preset with 
HEX correction constants are $C5 - $E3 and (LWRLIM+1) to (CSQLIM). 

When the absolute value of the starting address for the HEX block 
is determined, it is placed in INPCTR. A test is made to see if 
the address in INPCTR is not for a location in unprotected core. 
No error indication will be made if either of the following possi- 
bilities is the case: 

1. (LWRLIM)<(INPCTR)<( CSQLIM) 

2. $C5 <£ (INPCTR) ^.$E3 

If either - 

( INPCTR) <$C5 
or - 

$E4 ^. (INPCTR) £ (LWRLIM) 
then - 

the error indication "E6" is printed to indicate the starting address 
is for a location in protected core. The error procedure described 
in item 28.9.6.4.2 then follows. 

3^ .9.6.4.5 Locating Storage Area for HEX Correction Constants 

The input area for storage of the HEX correction constants is deter- 
mined at the location whose label is HEXPR5. This is accomplished 
as follows: 

1. If the starting address is greater than "$04" but less than 
"$E4", the input area is in the unprotected area of the 
communication region. Therefore - 

a. (INPCTR) = starting address for the HEX block, 

b. "$E4" — > CSQCTR, where (CSQCTR) = limit address for 
the input area, and 

c. +1 — > SW6. 

A jump is made to HEXPR6 to process the individual hex 
correction constants. 
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If the starting address field of the HEX block contains an 
entry point name = "DATBAS", the input area is in the Load 
Time Data Storage Buffer. Therefore - 

a. (INPCTR) - (DATDIF) > INPCTR, where (INPCTR) = starting 

address for the input area, 

b. (DATCTR) — > CSQCTR, where (CSQCTR) = limit address for 
the input area, and 

c. >SW6. 

A jump is made to HEXPR6 to process the individual HEX 
correction constants. 

If the starting address field of the HEX block contains an 
entry point name, and if the entire command sequence storage 
remains in Load Time Core such that (PRODIF) = 0, then - 

a. (INPCTR) + (DATLEN) >INPCTR, where (INPCTR) = starting 

address for the input area, 

b. (CSQLIM) + (DATLEN) > CSQCTR, where (CSQCTR) = limit 

address for the input area, and 

c. >SW6. 

A jump is made to HEXPR6 to process the individual HEX 
correction constants. 

If the starting address field of the HEX block contains an 
entry point name, and if the entire command sequence is on 
mass storage such that (PRODIF) ^ 0, then the input area is 
located in 1 or 2 sectors on mass storage. Therefore, 2 
sectors will be brought into core as follows: 

a. (L0WC0R)+1 > INPCTR, where (INPCTR) = starting address 

of input area, 

b. (L0WC0R)+194 — > CSQCTR, where (CSQCTR) = limit address 
for the 192 words brought in from mass storage, 

c . - 1 — > SW6 , 

d. The absolute value of the number for the 1st of 2 sectors 
is computed using the DPRADD routine. The sector number 
is recorded in SECTNO and SECTNO+l, and 

e. A return jump is made to MDRIV to read 192 words inot 
core starting at (L0WC0R)+1. 

A jump is made to HEXPR6 to process individual correction 
constants. 



3*19.6.4.6 Correction Constants - HEXPR6 

A return transfer is made to SCAN for each correction constant. 

1. A legal correction constant has been extracted. 

2. An illegal correction constant has been detected. 



4. 
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3. The entry contains no correction constant. 
3^.9,6.4.7 Storing a Legal Correction Constant 



If upon return from SCAN, an entry contains a legal correction constant 
(a constant of no more than 4 hexadecimal digits), (SYMSTR) is zero, 
(INPWRD) is the binary value of the correction constant and (INPREL) 
contains either a "+" or a "-" as the terminating character for the 
correction constant. The plus sign indicates positive address relo- 
cation for the correction constant while the minus sign indicates 
negative address relocation. The particular relocation base to be 
used for address relocation depends on the relocation flag which 
follows the "+" or "-" sign. The relocation flag is extracted from 
the input block by a return jump to CHPU. (See item 28.8.2.) Upon 
return from CHPU, the location INPREL contains in bits 0-7 the ASCII 
code for a relocation flag where the relocation flags are as follows: 

A absolute or no relocation 

P program relocation 

C common storage relocation 

D data relocation 

Relocation is handled as follows: 



TYPE OR RELOCATION 

absolute 
negative absolute 
positive program rel. 
positive common storage rel. 
positive data storage rel. 
negative program rel. 
negative common storage rel. 
negative data storage rel. 



ACTION TAKEN 

(INPWRD)^O > INPWRD 

( INPWRD) -0 — > INPWRD 

( INPWRD y ( PROBAS ) 3 

( INPWRD ) +■( COMBAS ) * 

( INPWRD)- (DATBAS) > 

( INPWRD ) - ( PROBAS ) => 

( INPWRD ) - ( COMBAS ) > 

( INPWRD ) - ( DATBAS ) > 



►INPWRD 
INPWRD 
INPWRD 
INPWRD 
INPWRD 
INPWRD 



The subroutine ADJOVF is used to perform the address arithmetic. (See 
item 28.8.3.) If the relocation flag in INPREL is not one of the above 
characters, it is regarded by HEXPR0 to be an error. Further pro- 
cessing of the HEX block is terminated, and a jump will be made to the 
location -HEXERX. (See item 28.8.6.4.10.) 

If the relocation flag for the correction constant is legal, HEXPR0 
will attempt to store the constant at the location whose address is 
in INPCTR. Before this constant is stored, a test must be made for 
overflow of the input area. Overflow of the input area has occurred 
if - 

(INPCTR) ^ (CSQCTR). 



r 
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If overflow of the input area has occurred, one of the following 
will happen: 

1. (SW6) =0 or -1, the error message "E5" is printed to indi- 
cate overflow of the input area. A jump is then made to the 
location HEXERX. (See item 28.9.6.4.10.) 

2. If (SW6) = +1, the error indication "E6" is printed to 
indicate overflow of the unprotected area of the communication 
region and an attempt has been made to store a correction 
constant in a location in protected core. A jump is made 

to HEXERX. (See item 28.9.4.6.10.) 

If there is no overflow of available core, the contents of INPWRD 
is stored at (INPCTR). The contents of INPCTR is increased by 1 to 
the bext address of storage for correction constants. A return 
transfer is made to CHPU. Upon return from CHPU, bits 0-7 of the 
location INPREL contain the character which follows the entry reloca- 
tion flag for the correction constant. If this character is a comma, 
HEXPR0 will look to process the next entry in the block. If this 
character is a carriage return (or a space), HEXPR0 will transfer to 
NXTINP to process the next entry in the block. However, if the input 
area is from mass storage, the 192 words at the bottom of Load Time 
Core must be written back onto mass stoage before a jump is made to 
NXTINP. If this character is neither a comma, space or carriage 
return, a jump is made to the location HEXERX. (See item 28.9.6.4.10.) 

Since the driver does not transfer a carriage return to the input 
buffer, the presence of a carriage return in the input block is 
indicated with a "$FF". (Prior to reading a record of relocatable 
binary input, each location in the input buffer is filled with the 
value $FFF.) 

3^ .9.6.4.8 Illegal Correction Constants 

Illegal correction constants are those which have more than 4 digits. 
Illegal relocation flags or a relocation flag not separated from the 
constant by a "+" or a "-" sign. If an illegal correction constant 
should occur, processing of the HEX block is terminated. A jump is 
made to the location HEXERX. (See item 28.9.6.4.10.) 

Binary values for illegal correction constants are not stored in core. 
However, if a correction constant and its relocation flag are followed 
by an illegal field terminator, the binary value for the constant is. 
stored in core. Processing of the HEX block from that point on, however, 
is terminated, and a jump is made to the location HEXERX. 

3^ .9.6.4.6 Missing Correction Constants 

A field is considered to have a missing correction constant only if 
upon return from SCAN the following is true: 

1. (INPREL) = ASCII code for comma, 

2. (SYMSTR) = ASCII code for blanks, 

3. (INPWRD) = is set to zero. 
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When a field contains a missing correction constant, the contents of 
the location whose address is in INPCTR is not disturbed. The 

address in INPCTR is increased by 1 , and subsequent correction 

constants in the input block are stored beginning with the next 
address. 

If upon return from SCAN, (INPREL) contains a value = $FF in place 
of a comma, the field with the missing correction constant is considered 
to be the last field in the input block. An exit is made from HEXPRO, 
the procedure for which is described in the second- from- the- last 
paragraph in item 28.9.6.4.7. 

3T .9.6.4.10 HEXERX 

When a jump is made to HEXERX, a test is made to determine whether or 
not the input area consists of 192 words of command sequence read in 
from mass storage. 

If (SW6) 0, the command sequence for the input area did not come 

from mass storage. The error procedure described in item 28.9.6.4.2 

is followed. If (SW6) _ 0, the command sequence of the 192 word 

input area is written back onto the 2 mass storage sectors from _ 

which it originated. (This is followed by the error procedure (^ 

described in item 28.9.6.4.2.) 

3T .9.6.5 Exit from HEXPRO 

Exit from HEXPRO is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP- NXTINP,I JUMP TO NXTINP TO READ 

EQU NXTINP(123) NEXT INPUT BLOCK 

3T .6.9.6 Subroutines used by and External to HEXPRO 

1. MDRIV is used for mass storage I/O operations. MDRIV is 

entered with a return jump to its entry point name, 
MDRIV, which is declared as an external in the calling 
PROGRAM. (See item 28.7.3.) 

2. DPRADD is used to compute the starting sector number for all 

mass storage I/O operations. DPRADD is entered with 
a return jump to its entry point in the constant table. 
(See item 28.8.11.) 

3. SCAN is used to extract a field from the input block. A 

field may contain either the starting address, an 

increment of the starting address or a correction 

constant. SCAN is entered with a return jump to its f 

entry point in the constant table. (See item 28.8.1.) 
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4. CHPU 



5. PRINT3 



6. PRINT5 



is used to extract a single character from the input 
block. CHPU is entered with a return jump to its 
entry point in the constant table. (See item 28.8.2.) 

.is used to print error messages. PRINT3 is entered 
with a return jump to its entry point in the constant 
table. (See item 28.8.7.1.) 

is used to print the name of a starting address follow- 
ing the printout of an error indication. PRINT5 is 
entered with a return jump to its entry point in the 
constant table. (See item 28.8.7.4.) 



E0LPR0 



EOLPRO is the routine which is used to process the EOL block. 
Constant Table Storage Referenced by EOLPRO 



NAME USED IN DOCUMENTATION 

BASE 

DATLEN 

DATSTR 

DIFCON 

DSECNO 

ENTPNT 

INPCTR 

INPWRD 

LINK 

L0WC0R 

LWRLIM 

NGRLSW 

PRODIF 

SECTNO 

SECTOR 

SW6 

TABCTR 

TABLIM 

TABS NO 



STORAGE POSITION IN CONSTANT TABLE 

23 
177 
180 
186 
203 

13 

15 

10 

14 
179 
191 
9 
171 
173-174 
198 

28 

16 

7 

204 



The constants are used as follows: 



c 



1. BASE 

2 . DATLEN 

3 . DATSTR 



contains the base address of the Loader. 

contains the number of words set aside for a data 
reservation. 

contains the storage base address for the Load Time 
Data Storage Buffer. 
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4. DIFCON 

5. DSECNO 



6. 


ENTPNT 


7. 


INPCTR 


8. 


INPWRD 


9. 


LINK 



10 . L0WC0R 



1 1 . LWRLIM 

12. NGRLSW 



13. PRODIF 

14. SECTNO 



15. SECTOR 

16. SW6 



17. TABCTR 

18. TABLIM 

19. TABSNO 



is used for temporary storage. 

contains the relative value of the starting sector 

-number— for-recording-the-Load— Time-Data-Storage 

Buffer in the scratch area on mass storage. (See 
item 28.9.1.5.2.) 

is set to WORD 4 of a Loader Table when E0LPR0 looks 
at the table entry. 

is set to the address of WORD 1 of a Loader Table 
as E0LPR0 looks at the table entry. 

is used for temporary storage. 

is set to WORD 5 of a Loader Table entry when EOLPRO 
looks at the table entry. 

contains the lower limit address (lowest address -1) 
of Load Time core - 

= (LWRLIM) + (DATLEN)r 

contains the lower limit of unprotected core = ($F7). 

is the switch which determines the address mode for 
which patching will occur during a LINK1 (patching) 
operation. NGRLSW is set positive if patching is 
for absolute addressing and negative for relative 
addressing. (See item 28.8.8 - LINK1.) 

contains the word count of the command sequence 
recorded on mass storage. 

is the 1st of 2 locations containing a 30 bit sector 
number. This is the absolute value for the number of 
the starting sector for an I/O operation on mass 
storage. The 15 most significant bits are stored in 
bits 0-14 of SECTNO, and the 15 least significant 
bits in bits 0-14 of SECTNO+1. 

contains the word count for 1 sector on mass storage = 
96 words. 

contains some positive value which is an integer 
multiple of 5 such that 

(TABLIM) + (SW6) = 1st word address of some 

Loader Table entry. 

contains the number of entries in the Loader Table. 

contains the base address of the Loader Table. 

contains the relative value of the starting sector 
number for recording the Loader Table in the scratch 
area on mass storage. (See item 28.9.1.5.4.) 
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3 ^.9.7.2 Entry to E0LPR0 

The name EOLPRO is declared as an entry point name in the EOLPRO 
routine and as an external in the LOADER routine. Entry to the 
EOLPRO routine is with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP EOLPRO 

3cj .9.7.3 Processing an EOL Block 

If the command sequence storage read in by the Loader has not overflowed 
the capacity of Load Time core, a jump is made to EOLPRO. This will 
occur if (PRODIF) =0. At the location E0LJ00, the A register is set 
to a -0 and the Q register to a +0. A jump is made to the address in 
the location LOADER where the address LOADER is external to the EOLPRO 
routine. (See item 28.9.1.) 

If the command sequence storage read in by the Loader has overflowed 
the capacity of Load Time Core such that (PRODIF) + 0, EOLPRO will 
perform a check of the Loader Table. The contents of PRODIF is recorded 
temporarily in DIFCON. The contents of DATLEN is recorded temporarily 
in DATNUM. EOLPRO checks for duplicate Loader Table entries such 
that one entry contains an entry point name and address and the other 
entries by this name contain external names and link addresses. The 
link addresses point to link address strings which are situated on mass 
storage. It is up to the EOLPRO routine to locate such a string, bring 
it into core, patch each location in the string with the entry point 
address and write it back onto mass storage. Also it is up to the 
EOLPRO routine to look for other duplicate entries in the Loader Table 
for this name. EOLPRO will erase the duplicate entry for the Link 
string it has just patched. 

At the end of the EOLPRO operation, the only link address strings on 
mass storage remaining unpatched will be those for which no entry point 
names had been encountered during the current Loader Operation. 

EOLPRO begins its Loader Table check by setting SW6 to 0. If the Loader 
Table is emtpy such that 

(SW6) = (TABSTR*5 where (TABCTR) =0, 

a jump is made to E0LJ00 where the exit procedure described above will 
take place. If (SW6) f- (TABCTR)*5, a jump is made to E0LPR1. 

3T .9.7.3.1 E0LPR1 ' 

The following occurs at E0LPR1: 



CA 138-1 



CONTROL DATA CORPORATION 

DOCUMENT CLASS 

PRODUCT NAME. 
PRODUCT NO 



DEVELOPMENT DIV 

IMS 



MAR 5 1971 

SOFTWARE DOCUMENT 

PAGE Nfi H .15 5 



1700 nPRRAT TWfl SYSTEM 4B711 



E0Q6Mg.nvFR.<;inN 



1.0 MArHIKIF SFRIFS 1700 



1. The address equal to (SW6)+ (TABLIM) is placed in INPCTR, where 

(INPCTR) is the 1st word address of a Loader Table entry, WORD 4 



2. 



3. 



of this entry is placed in LINK. WROD 3 of this entry is 
placed in ENTPNT. 

If there is no other entry in the Loader Table for this name 
(LINK) = -0 and a jump is made to EOLJ10. If (LINK) ± -0, 
the address in LINK points to WORD 3 of some other entry in 
the Loader Table containing this name. With such being the 
case: 

a. If (ENTPNT) ^-0, the entry whose 1st word address is 
(TABLIM) + (SW6) is not an entry point name. A lump is made 

t to EOLJ10. 

b. If (ENTPNT) > 0, the entry whose 1st address is (TABLIM) 

+ (SW6) is an entry point name. A jump is made to E0LPR2. 

At EOLJ10 the index count in SW6 is increased by 5 - 

(SW6) + 5 — >SW6. 
The end of the Loader Table will have been reached when 
(SW6) = (TABCTR)*5 

If this condition is met, a jump is made to EOLJ00 wheee the 
exit procedure described in 28.9.7.1 occurs. 

If this condition is not met, the E0LPR0 routine will proceed 
to E0LPR1 to look at another of the Loader Table entries. 



3T .9.7.3.2 E0LPR2 



At E0LPR2, the next Loader Table entry for this name is located. The 
last word of the current entry for this name is "plugged" with a 



'-0' 



or 



-0 



( INPCTR )+4. 



The address of WORD 3 for the next Loader Table entry occurs in LINK. 
The next Loader Table entry for this name is an external name entry, 
and WORD 3 contains the one's complement of the link address. The 
link address is placed in temporary storage: 

-((LINK)) ^ INPWRD 

This entry point address from the current Loader Table entry replaces 
this link address in the next Loader Table entry for this name. 



(ENTPNT) 



(LINK) 
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WORD 5 of the next Loader Table entry for this name is recorded in 
LINKSW: 

( ( LINK) - 3 ) — > NGRLSW 

The link address from the next Loader Table entry for this name is 
placed in LINK: 

(INPWRD) — > LINK 

A return jump is made to the TABI0 (see item 28.9.7.5) routine with 
(A) = -0. This is to place the Load Time Data Storage Buffer (if 
there is one) and the Loader Table in temporary storage in the scratch 
area on mass storage (see item 29.9.7.5.). 

Upon return from TAB 10, a jump is made to E0LPR4. 

3T.9.7.3.3 E0LPR4 

At E0LPR4, the E0LPR0 routine will locate on mass storage the command 
sequence containing the link address string to be patched. It will 
bring this information into core, perform the patching operation and 
( \ write the command sequence back onto mass storage in the sectors from 

^-^ which it came. As a result of the return jump to the TABI0 routine, 

there is a maximum amount of unprotected core in which to place the 
command sequence as it is brought in from mass storage. The steps 
necessary to carry out the above operation are as follows: 

1. (LINK) = the 1st address in the link address string to be 
patched. The quotient of the division 

(LINK)-(LWRLIM)-! 
96 

represents the relative value for the sector number containing 
(LINK). The A register is set to this value as a result of 
the division. 

2. The number of words to be read from mass storage is computed 
and recorded in NUMWDS - 

(A)+l — > A 
(A)*96 — > NUMWDS 

3. The upper and lower limits of Load Time Core for this opera- 
tion are respectively (LWRLIM) and (BASE). The location 
PR0DIF is set to the value = difference between execution 
time upper limit address minus load time upper limit address. 
The execution time upper limit address for reading from mass 
storage is - 

(NUMWDS) + (LWRLIMH1. 

Therefore - 

(NUMWDS )+(LWRLIM)+l- (BASE) — -^(PRODIF). 
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4. It is now necessary to compute the word length of unprotected 
core to the highest possible integer multiple of 96. 

(BASE) (-LWRLIM-) -1 

96 -* A, Q 

(A) * 96 ~*?k Reg. 

5. Set the location NUMWDS to the smallest of the two values of 
(A reg.) and (NUMWDS). 

If (A) <C(NUMWDS), 

(A) -^NUMWDS. 

6. The location ADDRS is set to the load time core starting 
address for reading from mass storage: 

(BASE) -(NUMWDS) ? ADDRS 

7. The A register is set to the execution time value of the 
starting address for reading from mass storage. 

(ADDRESS) + (PRODIF). >A 

8. The relative value of the starting sector number for reading 
from mass storage is computed and recorded in SECNUM. 

(A)-(LWRLIM)-! 



96 

(A) SECNUM 



A, Q 



9. The DPRADD routine (See item 28.8.11) is used to compute the 
absolute value of the starting sector number for reading from 
mass storage. Upon return from DPRADD, the number is recorded 
in SECTNO and SECTNO+1. 

10. The A register is set to the load time starting address and 

the Q register to the word length for reading from mass storage: 

(ADDRS) — =>A 

(NUMWDS) __^Q 

A return jump is made to MDRIV (see item 28.7.3) to read from 
mass storage. 

11. The location DATLEN is set to 0. A return jump is made to the 
LINK1 routine to perform the patch operation on the command 
sequence brought in from mass storage. 

12. Upon return from LINK1, the command sequence read in from 
mass storage will be rewritten onto the mass storage device. 
The DPRADD routine is used to compute the absolute value of the 
starting sector number. The A register is set to the load 
time starting address = (ADDRS). The Q register is set to 

the number of words to be written = (NUMWDS). The Q register 
is then complemented since the mass storage I/O operation is 
writing. A return jump is then made to MDRIV. 
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13. Upon return from MDRIV, PR0DIF and DATLEN are reset to their 
original values: 

(DIFC0N) — > PR0DIF 

(DATNUM) — > DATLEN 

14. The A register is set to a and a return jump is made to 
TABI0 (see item 28.9.7.5) in order to restore the Load Time 
Data Storage Buffer and the Loader Table to their former 
positions in unprotected core. 

15. Upon return from TABI0, E0LPR0 will look at LINKSW in order 
to determine if there are any other Loader Table entries by 
this name. If 

(LINKSW) = $FFF, 

there are no other Loader Table entries by this name. A jump 
is made to EOLJ10. (Refer to step 3 in item 28.9.7.3.1.) 
If (LINKSW) + $FFFF, there is at least one other entry in 
the Loader table for this name. The location INPCTR %s set to 

(LINKSW) -3 

and a jump is made to E0LJ11 in order to process that entry. 
The location E0LJ11 is 2 locations after E0LPR1. The Loader 
Table entry for this name which is stored at (LINKSW)-3 
will be processed in the manner described in item 28.9.7.3.1. 

3^ .9.7.4 Exit from the E0LPR0 Routine 

The name LOADER is declared as an entry point name in the LOADER 
routine, and as an external name in the E0LPR0 routine. The exit 
from E0LPR0 is made with the following instruction: 

LABEL OPCODE ADDRESS REMARKS 

JMP (LOADER) 

3^ .9.7.5 Subroutines Used by and Internal to E0LPR0 

The only subroutine used by and internal to E0LPR0 is TABIO. TABI0 
is used to record the Load Time Data Storage Buffer and the Loader 
Table onto mass storage so that the locations in core they occupy may 
be used for other purposes. When the use of this core is no longer 
required, the same TABIO routine will restore the Load Time Data 
Storage Buffer and the Loader Table to core. Entry to the TABIO 
subroutine is with a return jump to the location whose label is 
TABIO. 
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In order to dump these segments of core on mass storage, TABIO must 
be entered with (A) = -0. In order to restore the information to 

core,_TABIO_must_be_entered_with_(A)_^LjidD.. .Upon_entry_to_TAB_IO_,_the 

A register is recorded in the location TBIOSW. 

if (DSECNO) = 0, the TABIO routine will assume there is no Load Time 
Data Storage Buffer. If (DSECNO) is not zero, the DPRADD routine is 
used to compute the absolute value of the starting sector number for 
transferring the Load Time Data StorageBuffer to or from mass storage. 
The starting address = (DATSTR) is placed in the A register and the 
number of words = (DATLEN) is placed in the Q register. If (TBIOSW) 
is negative, the Q register is complemented for writing. A return 
jump to MDRIV will cause the I/O to be performed. 

If (TABSNO) = 0, the TABIO routine willassume there is no Loader 
Table. If (TABSNO) is not zero, the DPRADD routine is used to compute 
the absolute value of the starting secotr number for transferring the 
Loader Table to or from mass storage. The starting address is equal 
to (TABLIM) is placed in the A register, and the number of words to 
be written or read is equal to (TABCTR)*5 is placed in the Q register. 
If (TABIOSW) is negative, the Q register is complemented for a 
write operation. A return jump is made to MDRIV in order to perform 
the I/O operation. 

Exit from the TABIO routine is with a jump to the location TABIO 
where (TABIO) = address placed there at the time of entry. 

31.9.7.6 Subroutines Used by and External to EOLPRO 

1. LINK1 is used to patch each location in a string of link 

addresses with an entry point address. LINK1 is entered 
with a return jump to 164-i-(I). (See item 28.8.8.) 

2. MDRIV is used for I/O on mass storage. MDRIV is entered with 

a return jump to the location whose name is MDRIV and 
this name is declared as an external by the EOLPRO routine. 
(See item 28.7.3.) 

3. DPRADD is used to compute the absolute value of the starting 

sector number for a mass storage I/O operation DPRADD 
is entered with a return jump to the location 200+(I). 
(See item 28.8. 11.) 
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3^.^.5 ADRPRO 

ADRPRO is the routine used to look up an entry point- 
Loader tries to find the specified name in its symbol 
table. 

3 C 1. T-fi.l Constant Table Storage referenced by ADRPRO 

NAME STORAGE POSITION 

TABLIM 

INPURD 

INPREL 

INPCTR 

BLANKS 

SYMSTR 

SCANSU 

URDCNT 

SUb 

INPUT 

TABSCH 

INPXCO 

AINPUT 

(3INPUT 

MSC3UAN 

The Constants are used as follows: 

1- AINPUT contains one of the entrance parameters 

for the Loader Operation 

5. BLANKS contains the ASCII code for E spaces 

3. INPCTR used as on address counter to reference 

entries in the input block 

4. INPREL contains the terminating field when the 

field is extracted using the scan 
routine 

5. INPUT storage area for input blocks read by 

the Loader 

(=>- INPURD contains tne binary valve for the 

numeric fields extracted from the 
input area by the SCAN routine 

7. INPXCO contains the address constant INPUT 

where INPUT is the 1st location of the 
area for storage of relocatable binary 
input blocks read by the Loader 
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fl. (2INPUT 



Q. reg ister upon entr y to the Loader 



BI-l-fl.E 



3T-T-fi.-3 



T. SCAN 



10. SCANSU 



11. SUb 



12. SYMSTR 



13- TABLIfl 

m. TABSCH 

15. URDCNT 

lb. NSdUAN 



SCAN routine entrance 

used by SCAN to determine the type 
of ASCII field 

As a result of a Loader Table search-i 
it contains a positive valve which is 
added to -CTABLIM} in order to locate a 
Loader Table entry with a name to match 
on input block entry. 

used as storage for up to b characters 
of a field extracted from the input block 
by the SCAN routine. 

base address of the Loader Table 

loader table search routine entrance 

address of character reference counter 

size of absolute record placed by the 
loader on mass storage. 



Entry to ADRPR0 



The name ADRPR0 is declared external in the BRANCH 
routine and as an entry in the ADRPR0 routine. 

Starting Address 

The starting address may consist of either an entry 
point name -Cup to b characters} with or without an in- 
crement! or an absolute hexadecimal address of up to 
M hex digits and no increment. If the starting address 
is absoluten it is extremely important that the hex- 
adecimal number be preceded by c $^. It is otherwise 
assumed to be a decimal number. However where an 
increment is used with an entry point nanei the increment 
is assumed to be a hexadecimal number. Alson neither an 
absolute starting address nor an entry point name may be 
preceded by an algebraic sign of *+* or *-* although 
a hexadecimal increment may have such a leading 
algebraic sign. 
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BT-T-fl-M Entry Point Names and Increments as a Starting Address 

The A register is set to D. Then there is a return 
transfer to SCAN. Upon return from SCANn a six 
character name is stored at the 3 locations SYMSTRt 
SYMSTR+1 and SYMSTR+2. The name must appear in some 
entry of the Loader Tablen and the address associated 
with the name must be an entry point address. A return 
jump is made to TABSCH to search for the entry point name 
in the Loader Table. Upon return from TABSCH one of the 
following occurs: 

1- If SUL is negative! an error has occurred. 

A jump is made to the error routine to print out 
*E3 V and wait for a reply. 

2. If no error has occurred -CSUb} = an index to the loader 
loader table entry. 

Upon return from SCANn the character which follows the 
entry point name is contained in the location -CINPREL!. 
If this character is a comman there is no hexadecimal 
increment included in the starting address. If this 
character is a plus or minusn there is either a possitive 
or negative increment included in the starting address. 

The A register is set to the ASCII code for the leading 
algebraic sign. 

-CINPREL} A 

A second return jump is made to SCAN to pick up the 
binary value of this increment. 

Upon return from SCANn -CSYMSTR! must be zero-i -CINPURD! 

must contain the binary value of the increment -Cor its 

complement if negative! and -CINPREL! must contain a 
space or carriage return. 

If no error has occurred -CINPURD! is added to AINPUT! 
and the result is placed in -CAINPUT!. 
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41-D MASS MEMORY DRIVERS - MASDRV and DBLDRV 

41 .1 FUNCTION 

41-1-1 MASDRV is a control program for the drivers that reside 
on mass memory- 

It reads the driver into the reserved buffer area or queues 
the driver if a busy driver is in the buffer area- It also 
queues the 1713 driver i f » although the buffer . area is 
available? the 1713 is busy- 

41-1-E DBLDRV is a dual buffer version of MASDRV. 

41 -E ENTRY POINTS 

MASDRV - Scheduled by the Read/Write request processor 
as the driver initiator- 

MAS3QD - Checks if buffer is available for a mass memory 

driver and takes the driver off the queue. It is 
scheduled when a driver no longer needs the buffer 
it resides in -{driver has no more requests}-. 

MASINT - Entry that is stored into the dr i ver v s cont inuator 
address when driver is not busy- 

MASHNG - Entry that is stored into driver error routine 
address when driver is not busy 

MAS40Q - Entered from the reader or punch initiators when 
the 1713 is busy- It will put these drivers on 
..J:. the queue. 

MAS500 - Entered from the keyboard/printer driver when the 

1713 is busy- It will set the ^keyboard is waiting* 7 
flag- 
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Ml .3 EXTERNALS AND DESCRIPTION 

ALTDEV - System subroutine that handles device errors 
■[Alternate Device Handler! 

41 -4 GENERAL PROGRAM INFORMATION 

41 .4-1 EQUATES 

CMPRL - Priority level of MASDRV or DBLDRV- No driver 
residing on mass memory can have an initiator 
priority below this priority level. 

NMASDR - Number of drivers residing on mass memory. 

LNGTH - Must be equated to the length of the largest 
driver in MASDRV or the length of the two 
largest drivers in DBLDRV. 

41 .M.5 ASSEMBLY OPTIONS 

Each driver that can be mass memory resident has a 
corresponding equate in MASDRV and DBLDRV. If the 
driver is selected to reside on mass memory r the 
corresponding equate should be set to a 1- This will 
cause the addresses of MASDRVr MASINT , and MASHNG to be 
inserted in the driver^s initiator* continuatorr and error 
routine in the physical device table instead on addresses 
within the driver {the exceptions ar& the tape drivers!. 

If any tape driver is selected to be mass memory res i dent t 
the addresses in the physical device table will contain 
addresses in MASDRV or DBLDRV of the routine that handles 
the tape drivers feature of multiple logical units on one 
device. 
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41 .7 
41 .7.1 



GENERAL DESIGN PECULIARITIES 

MASDRV and DBLDRV are re-entrant only while they are 
queuing the drivers that have been scheduled. Because 
both MASDRV and DBLDRV contain a mass storage rea<ii 
request r they cannot be made completely reentrant. 
Because of this limitation the main program of MASDRV 
or DBLDRV is always scheduled to run at a single 
priority level determined by the equate CMPRL- 



41 -a 
Ml -fl.l 



PROGRAM LOGIC 

MASDRV 

MASDRV is entered with the Q register set to the physical 
device table address of the driver. The driver is then 
put on the queue. If the current priority level is the 
same as the priority level MASDRV runs at , MAS3Q0: is 
enteredr otherwise MAS3DQ is scheduled at the correct 
priority level. MAS3DD checks if any driver is in the 
buffer andr if notr takes a driver off the queue. If there 
is no driver on the queue the program will exit to the 
dispatcher. 

If a driver is currently in the buffer* a check of word 5 
of its physical device table is made -Cif the driver is 
a magnetic tape logical unitr the location ADRINT is 
checked}. If zero -[driver not busy} the PHSYTB of the 
current driver in the buffer is stuffed with the addresses 
of MASDRVrMASINT-, and MASHNG and the check of the queue 
is then made. If the current driver is busyr exit is made 
to dispatcher. 

The sector number and length of the new driver is stored 
in the mass storage read request and the driver is read 
into the buffer area- At completion of the read» the 
request is checked for error. If there was an error r 
exit is made to the Alternate Device Handler. If there 
was no error* exit is made to the first location of the 
buffer which will be the driver initiator routine* 
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DBLDRV 

DBLDRV functions the same as NASDRV except that it will 
check both buffers for availability. 

1713 CONSIDERATIONS 

When the 1713 driver is present in the systemr I1AS3DD 
will check if the keyboard is waiting to be executed. The 
keyboard is given priority in the event the system is 
waiting to output a message -Ci«e. from the Alternate 
Device Handler}. 

The ^keyboard wait* flag is only set when the keyboard 
driver has been scheduled and finds the 1713 busy with a 
read or punch operation. The driver then exits to HASS0D 
which sets this flag- 

If the 1713 reader or punch drivers find the 1713 busy after 
they have been initiated, they will return to nASWDOr which 
put them on the queue- 
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M2 .D Buffered Data Channel Allocation - BUFALC 

45- 1 Program Function 

BUFALC makes it possible to have more than one device 
connected to the 170b- I/O requests are queued on a 
firsfinr first"*out basis. 

42-2 Exit Interfaces 

Return is made to P + 3 in the driver with I = Current 
Phystb address. 

ME. 3 Entry Interfaces 

A = D if FNR has found no more requests 
A ? D if FNR has found a request 

42-4 Internal Description 

The following calling sequence is required for entry to 
BUFALC: 

EXT BUFALC 

RTJ BUFALC 

ADC D 170b reject address 

ADC Current Phystb address 
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Entry to BUFALC is made after P+l and P+E returns from 
FNR. The current status of the 170b is checked- If 
the 170b is avai labler return is made to P + 3 in the 
driver with the I register intact. If the 170b is busyr 
the return address is put on the queue and exit made 
to the dispatcher. 

When no more requests are found via FNR the queue is checked 
for any waiting requests. If anyr I is restored and 
return is made to P+3 in the driver. If no more requests 
are foundi exit is made to the dispatcher. 

4B.S (3ueue 

A queue is maintained for storage of the driver return 
address. One word is reserved for each device on the 
buffered data channel- 
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43.0 ENGINEERING FILE 

43.1 Program Name: Engineering File Recording Routine LOG 
43.1.1 Function: 

This program records the error from the failing device 
in an error table in core - 

43.1.E Entry Point Names: 

LOG - entry to program 

SCHFLG - switch for the logging overlay 

ERRTOP - pointer to current location in error table 

NASNN - number of mass memory devices in system 

CORTBL - engineering file for mass memory devices 

ETBLE - error table 

43.1.3 Externals: 

NUMLU - Number of logical units in system 

LOGGER - Name of program which moves the error into 

the proper engineering file. 

This program is mass memory resident 
L0G1A - Physical Device Table Thread 

43.1.4 En~ry Interfaces 

From the Alternate Device Handler 

I - Base of the Physical Device table of the failing 
device 

Q - Error word -Cerror code bits 5-0 

logical unit of failing device 15-b} 

A - Zero 

From a driver {to log a recoverable error} 

I - Base of the Physical Device Table of the failing 
device 

(3 - Error Code -Cright adjusted} 
A - jt Q 
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"43-1.5 External Interface 

The program exits via an indirect jump through its 
entry cell 

I - Base of the Physical Device Table of the failing 
device {restored to its value at entry} 

Q. - Restored to value at entry 

A - Restored to value at entry 

M3.1.L. General Program Information 

This routine is used to record an error- It is called 
by the Alternate Device Handler or by a driver when a 
hardware error occurs on a device- This program logs 
the error to an error table- It then writes the updated 
error table out on the system image on mass memory- 
Finally it schedules the mass memory resident program 
which will move the error to the engineering file for 
the logical unit assigned to the failing device- 
Low core cell SET holds the base address of the system 
image on mass memory- This program is assembled as a 
part of the Alternate Device Handler- It isn howevern 
not a part of the Alternate Device Handler and could be 
built -Cwith minor modifications} as a separate module - 
This program uses volatile storage. 
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The error word and status for an error is stored in 
the next available 5 word slot in ETBLE. If the table 
is full the error data will be stored in the first entry 
■Cthe oldest error being lost in that case}. In other 
words ETBLE is circular table. The logging routine is 
scheduled whenever an error is recorded. However it is 
possible to get several errors before the logging routine 
gets control and logs them to the engineering file. • 

43. 1. 7 General Design Pecularities 

1-7.1 LOG is a reentrant program. 

1-7. S ERRT0P-. ETBLE table-, and CORTBL must be block stored 
together. 

1.7.3 CORTBL is the entry point for the engineering files 
for the mass memory devices. 

'v_y 1.7.4 The engineering files for mass memory devices are kept 

in core. They must be block stored as stated in section 
1-7.2. Further they must be stored in the same order 
as they are arranged in the LOGIA table. 

1.7.5 Errors are logged from the Alternate Device Handler - 

ADEV or from the subroutine in which the error occurred. 

1.7. b LOG is a subroutine 

4 3- 1-fl Program Logic 

The program gets volatile storage. It saves the input 
parameters and positions the error code. Then it finds the 
logical unit by comparing the PDT Base in I with the LOGIA 
table to find a match. The program merges the logical unit and 
the error code into the error word. The status word ESTATE is 
read from the PDT. Then the error word and the status word are 
moved into the next 2 available locations in ETBLE. To guard 
against the possibility of losing these errors in case core 
should ger clobbered ETBLE is written out onto the core image 
on mass memory. dust before exiting the program schedules the 
logging routine LOGGER to move the error to the appropriate 
engineering file. 
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M3.2 Program Name: Engineering File Logging Routine LOGGER 
"43- 2. 1 Function : 

This routine moves the error data from the Error Table 

ETBLE to the engineering file for the logical unit 

assigned to the physical device on which the error occurred. 

M3-2.2 Entry Point Names: 

LOGR - entry to this routine 

M3. 2-3 Externals Description 

ETBLE - Error table 

CORTBL - Engineering File for mass memory devices 

LOGIA - Physical Device Table Thread 

SCHFLG - LOGGER switchi = 1 Logger Scheduled^ 

= Logger not scheduled 
ERRTOP - Pointer into ETBLE 

M3.2. M Entry Interfaces 

No parameters are passed via the register. 

M3. 2. 5 External Interfaces 

The registers are not restored on exit. There are no 
parameters passed on exit. 

43. 2. b General Program Information 

lb.1 The program is mass memory resident 

lb. 2 Engineering Files for all physical devices except 
the mass memory devices are kept on mass memory. 

lb. 3 Engineering Files for mass memory devices are kept 
in core. 

Ib-M Errors are stored with the most recent at the top 
of the Error Uordi status word area in the 
Engineering File. Errors are lost off the bottom. 

4:3.2.7 General Design Pecularities 

17.1 This program uses the word addressable disk driver. 
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M3.E.A Program Logic: 

This program moves the errors from the error table to 
the Engineering File. 

The program gets an error from the error table • 

It finds the logical unit on which the error occurred. 

It reads the engineering file for that logical unit into 
a buffer in core. 

NOTES -Clf the error to be logged occurred on a mass memory device 
the program will use the engineering file for the device 
that is already in core. It does not need to read one in 
from mass storage. It uses duplicate logic to that used 
for the non-mass memory devices. After the file is updatedi 
it updates the portion of the system image on mass memory • > 

It moves the error and status words downi moving out the 
oldest error i to make room for this new error date. 

It then moves the new error data into the engineering file 
in the buffer. 

If increments the error counter for the error code. 

It writes out the updated file into the engineering file 
on mass storage- 

If there are more errors in the error table 
it goes back to handle the next error. 

If there are no more errors in the error table it clears 
the error tablei resets the error table pointer and exits. 
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43.3 Program Name: Engineering File Display SELFS 

43. 3- 1 Function: 

The purpose of this program is to display the 
engineering file- 

43. 3. 2 Entry Point Names: 

SELFS - Program Entry 

43. 3.3 Externals Description 

CORTBL - Entry address for the core resident engineering 
files {for the. mass memory devices} 

MASNM - Number of mass memory devices in system 

NUMLU - Number of logical units in system 
43.3.4 Entry Interfaces 

There are no input parameters on entry. 
43. 3. 5 External Interfaces 

There are no output parameters 
4 3-3. b General Program Information: 

This program is mass memory resident 

The display of the engineering file ds on the standard 
print output device. 

This program can be called by: 

1- Manual Interrupt 
2. Type: SELFS 

The file is printed. On completion hit Manual 
Interrupt to continue the system running. 
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M3. 3. 7 General Design Peculiarities 

This program uses the word addressable disk driver- 

This is a mass memory resident program- 

M3- 3- A Program Logic 

The program stores its own location and initializes 
counters. 

Then it locates the engineering file on mass storage 
and reads in a file- 

If the file is empty it goes to get the next file- 

If the file is not empty it moves the file name into 
the printing buffer and prints it- 

It then continues printing the filei converting the status 
words and error codes attaching labels and inserting spacing 
until the file is printed. 

When the complete file is printed it goes to get the 
next file- 
In getting the file it checks to see if it has processed 
the last file on mass storage- If it has not it returns 
to process the next file- 

If all files on mass storage are processed it processes 

the engineering file in core {those kept for the mass 

memory devices!)-. Uhen these are processed the program 
releases itself and exits. 



O 



AA 3777 PRINTED IN USA. 



'— •■ 1 





6<r Block 

o£ VcLATtL£ 



Pur 
ZA/A 



SftOe lASEfe'S 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q) 

DECISION TABLE □ 

OTHER G 



<scr 



Ttm» om6 W«f> 



G^T STATUS 



An'P status ioofii 
TJKJTO Eft^oR Tht\B 






t»jTo 6*^. F«t© 



Hf»S^*46M- 




i . _J 



« I . * | . j 

, 1 ..... i 



. J 



3=> 



CO 



a i > t 



DOCUMENT 
CLASS 



IMS 



MACH. 
TYPE 



170D 



DOCUMENT 
TITUE 



_L££_ 



nsos 3-D 



ill OF 1 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



■REV 



PROJECT MCR 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



DATE 



X 

£ 



AA1383 (FORMERLY CA127-1) 



o 



PRINTS) Bl USA 

r 



o 



o 



LoCr<- (= £ 



y 



MA SS 
'RtfSlD • 









tfusex 




CpMT ] 



AtoUtf £££t>£ U>D„ An) 
5TTVTUS WD moxn 
&&*<&, ■TOfitb To 




>/eJ> 






*""" 





Fbo. purling 



STt>AA6>€ 



UP PATE. e*=uu T 



Z 



=t 






Uft>S. ptro 6AT6; 
FIL& 









— 



u. 



— — I 









€) 



3=» 



C71 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE f~) 

FLOWCHART Q 

DECISION TABLE □ 

OTHER [~] 



DOCUMENT _ M _, 
CLASS IMS 



M T A V C P H E 1700 



doc tVt£« t logger 



fISOS 3.0 



PACE 1 OF g 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MOR 



PROJECT NAME 



TASK NAME 



REN 



APPROVED 



DATE 



uu 



ru 



At 380 IFORMERL" CAI2' 



PRINTS IN USA 



i 




FM MASS 
£{?«?.«? -. 






6-er . Lo c&}xq»J 

£ais. PjL^ 






Move E#eo£ *"& 



MOV? /*£**&&*< 



OF S-<S>TfA1 

mass Sn>AA&C 



0*1 |A*$* Vte&Gy 



■f" 



5 ^"\ 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER □ 



DOCUMENT _-._ 

class ins 



DOC TVrLE T LOGGER 



MSOS 3.0 










1 — • 






i « . i 






1 



-3» 
50 



en, 

CD 



type j^pg 



2of2 



ISSUE 
DATE 



DRAWN BY 



~~ 



PROJECT NO. 



PROJECT MQR 



PROJECT NAME 



TASK NAME 



RSV 



APPROVED 



DATE 



14 

■ 

LU 



AA1385 (FORMERLY CAI27-1I 



o 



mmm> m usa 

O 



rlanrtw* «■■ ■M^afcw*' ■ — ^fcawafc 



o 



n 



SBi-F-S 



1 



SAv£ U*AtioiO 
£,H6. ClLfe 



ptL£ ewe* 






Mo 



w 






ffzre. 








Rzte: 



OF 8utNX& 



Move 



'Move ee&o& 



To ptflVT 



XT.T E. 






£MDc?A 



fl 



SEMD 



CouUT-ro 




KZTT=r 






\ 










xrn 







Move 



To Pftxiorr 




3> 
50 



Vi 



S3 



LU 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER I I 



CLASS 

DOCUMENT SELFS 



^ c pi 1700 



nsos 3.0 



>AOE 1 OF 5 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MSR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



AAI3SS 'FORMEP CA127-1 



FRINTH) IN USA 



--\ 



rfo yje 



~\ 






r 



"STATUS" /M^ 
/Ay To P%/kjT- 



\ J 



■:>y e * '•■■ ■■> f 



CONTROL D ATACORPORATION 

aOP ■ rtARE DOCuML* 



D 



SAMPLE CODE 

FLOWCHART '_] 

DECISION TABLE □ 

OTHER □ 



"1 
I 

SBf/D 



Cave** U{ 



T 




sewp 






,tAtuS yjofcP 
Tb A SCH / 



Fa j 2J 7 &*>& 
OF S-Z*O.R / 

( 








P 

FlU£ do^^T 



, ^"/^ APD&&SS 







rW 



„ ! — J . -H 

-- , ♦ « . t — B 

F'iu3u? " ' [ 

• — ■ — i — ' — ^ 






4> 



r-f— j — • — "Y , 




DOCUMENT 
CLASS 



IMS 



MACH 
TYPE 



1700 



DOCUMENT 
TITLE 



SELFS 



MSOS 3.0 



:2 op 5 



ISSUE 
DATE 



DRAWN BV 



PROJECT NO. 



I REN 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



APPROVED 



CATC 



3» 

TO 



en 

55 






In 



AA138S (FORMERLY CAI27 



FAINTED m U&A, 



o 






dfctfMMMKMMk 



o 



. MoVC 



o£ FxeLT> n> Move, 



KeWKJCr 










MoV£ 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



DOCUMENT 
CLASS 



IMS 



DOCUMENT 
TITLE 



SELFS 



MSOS 3-0 




r^rrg 



output 
Prxvtt 



BAJK6UF 






XT-re 



MACH. 17QD 
TYPE 



3of5 



ISSUE 
DATE 



DRAWN BY 



QK#eAJ> 



, „l 



. ^ <r ^ 



WO ADS FAoK 



T/i4oti&H 



l>R^A't> ' 



BWH&HF 



.,.OF BL.&r^S 

I-.M £nPR&£. , 

i 

I 



fZGTUM 

Ttttfo(j£>H 



PROJECT NO 



PROJECT MOR 



PROJECT NAME 



TASK NO 



TASK NAME 



REV 



APPROVED 




T$lJk!kl(F 



DATS 



AA138C (FORMERLY CA127-U 



FRInTEDWUSA. 




\hJotLCy To 



3Z 



to fisejz 



BZ 



(jloNVerfiJ Hoc 

to f\%.cxr 




CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART □ 

DECISION TABLE □ 

OTHER [7] 



Foii*. 05CXI 
To AQ 






tftZXQSC 



r~ 



ex 



DOCUMENT — M «n 

CLASS IP1S 



DOCUMENT 

TITI - E SELFS 



I1S0S 3.0 



To <3 



, aBtt-f^sctr 







Pi. 



type i?aa 



PAGE T OF. 



ISSUE 
DATE 



DRAWN BY 



ftscvr 







=j 






C#4£ XAJ.A. 



TV /?<>«$# 



^r ; i 



PROJECT NO. 



PROJECT MOR. 



PROJEC T NAME 



TASK NAME 



RE\ APPROVED 



DATE 



AA1385 (FORMERLY CA127-1 

o 



u 



RIOTED ©I USA. 

r 

V 



MMUMMMMiMtofek . - -I- - IT — 



C 



~\ 



r\ 



5 /*»^ 



Ser ft To SPacf 




J_..(/Vl-*3o. 
Set a aod A -to 



TO 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE (""] 

FLOWCHART Q 

DECISION TABLE □ 

OTHER | | 



seKfo^= 



ASCII, SAi/E «T 



Both C^A/l 



f 



(Gft s $. Boo© 



y^ 







se^^r__ 






DOCUMENT ____ 

ct - A9S ims 



MACH. _ ___ 

TYPE 1700 



DOCUMENT 
TITLE 



SELFS 



USPS 3.0 



iQE Sop 5 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO 



PROJECT MOR 



PROJEC T NAME 



TASK NAME 



R£V 



♦ - — i 



I * ■ j 



TO 



en 

55 



APPROVED 



DATE 



UJ 



03 



AA13BB (FORMERLY CA127-1, 



PRINTED IN USA. 



CONTROL. DATA CORPORATION 

Arden Hills Development 



MAR 5 1971 



DIVISION 



DOCUMENT CLASS_inS 

PRODUCT NAME 1.7nn OPTRATTM^ SVSTFM 



PAGE NO. 44-1 



PRODUCT MODEL Kin EQDb*3.0 



MACHINE SERIES llflfl. 



44. D 
44-1 



44. E 
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44.5 
44.5-1 



1711 TELETYPE DRIVER 



ENTRY POINTS 



TYPEI 

TYPEDR 

TYPERR 

EXTERNALS 



initiator entry 
continuator entry 
error entry 



None 

ENTRY INTERFACES 

a = address of the PHYSTB 

EXTERNAL INTERFACES 

None 

GENERAL PROGRAM INFORMATION 

PHYSICAL DEVICE TABLE 

The Teletypewriter driver refers to the physical 
equipment table entries with the following names 



CALL 

STATUS 

SWITCH 

CORE 

LASTP1 

TEMP 

COREIN 

ERRTAB 

TIME 

CALL: 
STATUS: 
SWITCH: 
CORE: 

LASTPl: 

TEMP: 
COREIN: 



= word 7 
= word IE 
= word 1 
= word ID 
= word 11 
= word 15 
= word 13 
= word A 
= word 4 

0. setting to get unit status. 

equipment status. 

Switch settings listed below. 

address into which the next data word is 

be stored, 
the last core location plus one to be 

stored into. 
Temporary storage. 
Original starting location in case cancel 

used. 
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ERRTAB: 
TIME: 



request status word. 
Diagnostic clock location. 



^SWITCH* bits are used as follows: 
Read 



bit 




1 
E 
4 
5 
b&7 



Write 



bit 




1 
2 
3 
4 
5 
b&7 



zero for read 

one if formatted 

one if lower 

one for pass switch 

one for cancel 

null count for turning on the break light 



one for write 

one if formatted 

one if lower 

one if operation complete 

zero if 1st character {to send carriage return} 

zero for control -Cto send line feed} 

cancel count - to send 3 cancel characters 

after TABn VTAB & FORM 



44. b DESCRIPTION 
44.fc,.l INITIATOR 

TYPEI is the initiating entry to the driver. At entryn 
routine FNR is called. If no request is found exit is 
made to the dispatcher- 

If one is found the PHYSTBS are initialized. Write mode 
if set and interrupt on datai alarm and EOT selected. 
The diagnostic clack is setn a cancel character is output 
to cause an interrupt and exit is made to the dispatcher. 
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im.h.E CONTINUATOR 



TYPEDR is the continuator or interrupt time entry. At 
entry n if caused by manual interruptn the pending manual 
interrupt bit is seti interrupts are cleared and interrupt 
on datan alarm and EOT selected- If the unit is busy 
and read mode is setn a character is input- If the unit 
is not busy-i - pending manual interrupt is cleared- If the 
unit is in usei it is marked not in use and the location 
of the interrupted request put in (3- If not in usen zero 
is put in (2- Exit is then made to the manual interrupt 
module MANINT. 



4M-L-3 ERROR ENTRY 



If entry was not due to manual interrupt but was caused 
by alarm or diagnostic clock procedure ERROR is entered. 
This procedure sets the error field of PHYSTBT and 
enters the completion procedure. 

■m.fci.i* COMPLETION 

If the interrupt was EOP or the completion switch is seti 
the completion routine is entered- This procedure clears 
interrupts! resets the diagnostic clockn schedules the 
completion routine and re-enters TYPEI- 

m*.h.5 DATA TRANSFER OPERATION 

If entry was due to data interrupt-i status is checked 
to see if the teletypewriter motor is on- If notn a cancel 
character is sent and exit is made to the dispatcher. 
If the motor is on and this is a write operation! the 
WRITE procedure is entered- If it is a read operation 
and the unit is busy -C a character has been typed} 
procedure READ is entered. If it is a formatted readn 
null count is checked to see if two nulls have been sent 
out to turn on the break light. If noti a null is sent 
out and exit is made to the dispatcher. If the nulls have 
been sent outi interrupts are clearedn read mode is, setn 
interrupt on datai alarm and EOT is selected and exit is 
made to the dispatcher. 
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If it is a write operation and the format switch is seti 
the 1st character switch is checked- If it is set a 
carriage return is sentn the 1st character switch is 
not seti the control switch is reset and exit is made 
to dispatcher- If the control switch was not set the 
spacer count is checked- If it is non zeron it is 
decremented! a cancel character is sent out and exit is 
made to the dispatcher. If the spacer count was zero or 
the write was not formatted! the data word from core is 
placed in (3- If the upper character switch is setn 0. 
is shifted right A bits- The upper T bits of Q are then 
cleared- If the character is a null -Czero>T $7F {cancel} 
is substituted. If the character is a TABn VTAB or FORMn 
the spacer count is set to 3. The character is then sent 
out. If this is the last word {unformatted single 
character output} the completion switch is set and exit 
is made to the dispatcher. If it is now set for uppern 
the core location is incremented. If it is now the last 
location! the completion switch is set. The dispatcher 
is then entered. 

If the operation was read and the unit is busyi the 
character is input. If the unit is not marked in use 
exit is made to the dispatcher. If it is in use the 
parity of the character just input is checked. If it is 
incorrect exit is made to procedure ERROR. 

If parity is correct the format switch is checked. If 
setn the character just input is checked- If it is a line 
feed exit is made to the dispatcher. If it is a carriage 
return the cancel switch is checked. If it is not set 
the common completion routine is entered- If it is set 
the input buffer is backgrouned to all 5FFFF- Core 
location is set back to the original setting effectively 
repeating the request- If it is a cancel character the 
cancel and pass switches are set and exit is made to the 
dispatcher. If it is not a cancel character the pass 
switch is checked- If it is set exit is made to the 
dispatcher- If the pass switch is not set or the request 
is not formatted 5FF is put into the upper half of the 
word containing the character just input- The upper lower 
switch is then checked- If set for upper the word is 
shifted left fl bits and stored into the specified core 
location- If set for lower the word is'added with the 
specified core location- If this is the last wordi this 
was an unformatted single character input operation and 
exit is made to the common completion routine. If noti 
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the upper lower switch is reversed. If now set for 
lower exit is made to the dispatcher. If now set for 
upper the core location is incremented. If it is not 
now the last word exit is made to the dispatcher. If 
it is the last word and the input is unformatted exit 
is made to the common completion procedure. If the 
operation is formatted the pass switch is set and exit is 
made to the dispatcher. 
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45. Q ^713 ^TELETYPEWRITER DRIVER 

'..(•'■•• 

45.1 ; the ■'3*73/3 Teletypewriter Driver operates under the 

j CONTROL DATA 17DD 3-D Operating System to provide the 
-capability for keyboard or paper tape reader input and 
printer or paper tape punch output- The keyboard/printer 
module;; is core resident- The paper tape reader module 
y and the paper tape punch module are mass memory resident - 

45-2 -modules 

The 1713 Teletypewriter Driver is composed of 4 modules: 

1- MASDRV - Mass Memory Driver Control program. 

2. S13D01 - Keyboard/ Printer D river - 

3. ^$13002 - Paper Tape Reader Driver. 
4- S13003 - Paper Tape Punch Driver. 

45-3 1713 KEYBOARD/PRINTER - S13001 

45.3.1 ENTRY SYMBOLS 

S13KI Driver initiator address 
S13KC Driver continuator address 
'■_J5.13K.ER Driver error routine for diagnostic timer 
SETCDI ; Error routine which forms the error word for 
the Alternate Device handler. 

45.3.2 EXTERNAL SYMBOLS 

MAS500 Entry point in MASDRV/DBLDRV. It will queue the 
keyboard/printer if the 1713 is busy on entry 

1 _ .J. \. :„, ..:, to ■ the initiator of the driver- 

r iMJ1-;? Entry point in MINTt which will process manual 

^• y - ;^;| V; .' interrupts- 

'MAS3G0 Entry in MASDRV/DBLDRV. It will check if any 
mass memory drivers are waiting to use core. 

• SI^JIPD^TT Entry in the systems tables and parameters. 

.-•< "" ;/. , Contains the current setting of the mode switch. 
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S13BZY Entry in the systems tables and parameters. 

Contains logical unit associfeed with the module 
currently busy with the 1713- It will be zero 
if the 1713 is not busy- 

MAKEG Routine that sets the proper error bits in 
Word 1 of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 

MS. 3. 3 ENTRY INTERFACES 

Q = address of the PHYSTB 

M5.3.M PHYSICAL DEVICE TABLE ENTRIES 

CALL 7 - Q. setting to get unit status. 

STATUS 15 - equipment status. 

SWITCH T - switch settings listed below- 

CORE ID - address into which the next data word is to 

be stored. 
LASTP1 11 - the last core location to be stored into plus 

one 
TEMP IS - temporary storage for character just read. 
COREIN 13 - original starting location in case cancel is 

used. 
ERRTAB fl - request status word. 
TIME H - diagnostic clock location. 
LU S - logical unit currently assigned to the device 

^SWITCH* bits are used as follows: 
Read 

bit D - zero for read 

1 - one if formatted 

2 - one if lower character 

y - one for pass characters {until carriage return if 
S - one for cancel formatted 

b&7 - null count for turning on the break light 
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Urite 

bit - one for write 

1 - one if formatted 
5 - one if lower 

3 - one if operation complete 

4 - zero if 1st character -Cto send carriage return} 

5 - zero for control -Cto send line feed} 

b-*2 - cancel count - to send IS cancel characters after 
TAB-i VTAB & FORM 

MS. 3-5 KEYBOARD DESCRIPTION 

MS.3-5.1 INITIATOR 

S13KI is the initiating entry to the driver- At entry 
the 1713 is checked for busyn if yesi exit is made to 
f1AS3DD- 

If a request is found a check is made to determine if the 

device is in keyboard mode- If notn keyboard mode and 

interrupt on EOP are selected and exit is made to the 
dispatcher. 

When the device is already in keyboard mode or keyboard 
mode has been selected and an EOP interrupt generated to 
indicate the switch of moden the PHYSTAB locations are 
initialized- Urite mode is set and interrupt on data and 
alarm selected. If the operation is a read operation! 
the diagnostic clock is set and a null character is output 
to cause an interrupt and exit is made to the dispatcher- 
If the operation is a writei the write routine in the 
continuator is entered. 

MS- 3-5- 2 CONTINUATOR 

Manual Interrupt 

S13KC is the continuator entry- At entryn if caused 
by a manual interrupt the manual interrupt processor is 
scheduled and a check is made for data or alarm - 



3777 PRINTED IN USA. 



CONTROL DATA CORPORATION 

Arden Hills Development DIVISION MAR 5 1971 



Sg^LS* 5 IWu •PLkATiNt m-TLn — PAGEN0 — 



PRODUCT NAME 



EUUW3TD Z^ZZ~ZZ 1700" 



PRODUCT MODEL NO. LUUO J ' u MACHINE SERIES 



If neither of these conditions existi the device is 
clearedn interrupt on data is selectedi and exit is 
made to the dispatcher- 

Mode Switch 

If on entry an EOP interrupt was generated by a mode 
switchn the interrupt is cleared and the initiator is 
re-entered - 

Error Entry 

If the interrupt was caused by an alarm condition the 
error routine SETCOD is entered- This routine performs 
these functions: 

1- Forms the error word for ALTDEV. 

E- Sets the error bits for NAKfl. 

3- Sets the counter for the diagnostic timer to -1. 

4- Clears the 1713 busy flag. 

5- Exits to the Alternate Device Handler -CALTDEV}. 

Completion 

If the interrupt was EOP and not a mode switch or the 
completion switch is setn the completion routine is 
entered. This procedure clears interrupts! resets the 
diagnostic clocki schedules the completion routinen clears 
the 1713 busy flag and re-enters the initiator. 

Data Transfer Operation 

If entry was due to data interruptn the switch word 
is checked to see if it is a read or write operation. 
If this is a write operation! the WRITE procedure 
is entered. If it is a read operation and the unit is 
busy -Ca character has been typed} procedure READ is 
entered. If it is a formatted readi null count is 
checked to see if two nulls have been sent out to turn 
on the break light. If noti a null is sent out and exit 
is made to the dispatcher. If the nulls have been sent 
outi interrupts are cleared! read mode is setn interrupt 
on data and alarm is selected and exit is made to the 
dispatcher. 
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If it is a write operation and the format switch 
is setr the 1st character switch is checked- If 
it is set a carriage return is sentr the 1st character 
switch is reset and exit is made to dispatcher- If 
1st character switch is not setr the control switch 
is reset and exit is made to dispatcher- If the 
control switch was not set the spacer count is 
checked. If it is non zeror it is decrementedr a 
cancel character is sent out and exit is made to 
the dispatcher- If the spacer count was zero or 
the write was not formattedr the data word from 
core is placed in C?. If the upper character switch 
is setr d is shifted right A bits. The upper ^ bits 
of 0. are then cleared. If the character is a null 
•Czero>r $7F -[cancel} is substituted. If the 
character is a TABr VTABr or FORMr the spacer count 
is set to IS- The character is then sent out. If 
this is the last word {unformatted single character 
output} the completion switch is set and exit is made 
to the dispatcher. If it is not the last character 
the upper-lower switch is reversed. If the switch 
is now set for lower exit is made to the dispatcher. 
If it is now set for upper r the core location is 
incremented. If it is now the last location» the 
completion switch is set. The dispatcher is then 
entered. 

If the operation was read and the unit is busyr the 
character is input. The parity of the character 
just input is checked. If it is incorrect exit 
is made to procedure SETC0D- 



If parity i 
If setr the 
it is a I in 
If it i s a 
checked. I 
routine is 
is backgrou 
back to the 
the request 
and pass sw 
d ispatcher . 
pass switch 
to the disp 
or the requ 
the upper h 
just input. 
If set for 
and stored 



s correct the format switch is checked- 

character just input is checked. If 
e feed exit is made to the dispatcher- 
carriage return the cancel switch is 
f it is not set the common completion 
entered. If it is set the input buffer 
nded to all ones. Core location is set 
original setting effectively repeating 

If it is a cancel character the cance 
itches are set and exit is made to the 
If it is not a cancel character the 
is checked. If it is set exit is made 
atcher- If the pass switch is not set 
est is not formatted $FF is put into 
a 1 f of the word containing the character 
The upper lower switch is then checked 
upper the word is shifted left 6 bits 
into the specified core location. 
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If set for lower the word is anded with the specified 

core location- If this is the last wordi this was 

an unformatted single character input operation and 

exit is made to the common completion routine- If 

noti the upper lower switch is reversed- If now set 

for lower exit is made to the dispatcher- If now set for 

upper the core location is incremented- If it is now the 

last word exit is made to the dispatcher- If it is the 

last word and the input is unformatted exit is made to the 

common completion procedure- If the operation is formatted 

the pass switch is set and exit is made to the dispatcher- 

45-4 1713 PAPER TAPE READER - S1300E 

MS- 4-1 Pseudo Entry Symbols 

(1S13I Relative distance between initiator and first 
location in S13002- 

MS13RC Relative distance between continuator and first 
location in S1300B- 

(1S13RE Relative distance between error routine and 
first location in S13002- 

45.4-2 External Symbols 

MAS4Q0 Entry point in MASDRV- It will queue the reader 
if the 1713 is busy on entry to the initiator 
of the driver- 

S13N0D Entry in the systems tables and parameters. 

Contains the current setting of the mode switch. 

S13BZY Entry in the systems tables and parameters- 
Contains logical unit associated with the module 
currently busy with the 1713- It will be zero 
if the 1713 is not busy. 

HAKE(2 Routine that sets the proper error bits in Word T 
of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors - 
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45.4.3 PHYSICAL DEVICE TABLE 

The 1713 paper tape reader refers to the physical device 
table entries with the following names: 

CALL (3 setting the get unit status. 

STATUS equipment status 

SWITCH switch settings listed below. 

LENGTH complement of remaining length of binary 

formatted record. 
ADDRESS address into which the next word read from tape 

is to be stored. 
CORE address into which the next data word is to be 

stored.. 
LASTP1 the last core location plus 1 to be stored into. 
TEMP temporary storage. 
CHKSUM checksum accumulator. 
ERRTAB request status word. 
TIME diagnostic clock locations. 



^SWITCH* bits are used as follows: 

bit 0: for a read operation 

1: 1 if formatted operation 

2: 1 if lower character 

3: 1 if ASCII mode 

4: if 1st word 

5: 1 if not control information 



MSo4.it DESCRIPTION 

Initiator 

S13RI is the first location of the initiator. At entry the 
1713 busy flag -CS13BZY> is checked for zero. If not zeroi 
exit is made to MAS400. If zeroi routine FNR is called. 
If no request is found the device is cleared and exit is 
made ro MAS300. 
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If a request is found a check is made to determine if 
the device is in TTS mode- If noti TTS mode and 
interrupt on EOP are selected and exit is made. to the 
dispatcher. 

When the device is already in TTS modei or TXS mode has 
been selected and an EOP interrupt has been generated by 
the switch of modei the PHSTAB locations are initialized. 
Read mode and interrupt on data and alarm are selectedn 
and a start motion function is output to cause an interrupt 
Start motion must be selected for each frame- The 
diagnostic clack is set and exit is made to the dispatcher. 
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Cont inuator 

S13RC is the first location of the continuator- If the 
interrupt was caused by an alarm condition the error 
routine ^SETCOD* 7 is entered. If the interrupt was caused 
by datar the data transfer -t^DATINT* 7 } section is entered- 
If an E0P interrupt was generated by a switch of mode the 
initiator is re-entered- 

Data Transfer Operation 



i s 

checked 
made 



If entry was not because of an alarm interrupt and the 
request is formatted binaryr the first character switch 
checked. If equal to zeror the character just input is 
to see if the high order bit is a one- If notr exit is 
to the dispatcher. This is because the first word of a 
binary formatted record is the complement of the number of 
words in the record. Tape frames are passed until a frame 
having a one bit in the high order is found- When one is 
foundr the first character switch is reset- The character 
is then checked to see if it is equal to $AA -O with parity}- 
If it isr the mode of the request is changed to ASCII and 
the appropriate point in the code is entered. If it is not 
equal to $AA but is greaterr 1 is subtracted from the character 
Th'is is to compensate for the fact that one is added by the 
punch driver in the equivalent situation- This is to prevent 
an actual length whose high order character is $AA from being 
misinterpreted as being an ASCII record- If first character 
switch was not set control comes to this point- If the control 
switch is not set and the record length has not been decremented 
to zero the address of v length* 7 is put into ^address v - If 
the request was ASCII or was changed to ASCIIr ^CORE* 7 is 
checked to see if the requested number of words has been 
filled. If it has notr ^core* 7 is put into the ^address* 7 - 
If the record length had been decremented to zero or the 
requested number of words had been filled ^temp* 7 is put 
into ^address* 7 . This is to pass characters in ASCII or 
allow the checKsum to come in binary. 

{If "the request is ASCIIr parity is checked. If incorrect , 
procedure ^SETCOD* 7 is entered. If the request is formattedr 
the character is checked to see if it is a carriage return. 
If -'it is and it is the upper character ^CORE* 7 is incremented 
and the completion procedure is entered- If the character 
.is a null {blank} line feed or cancel it is ignored and exit 
is made to the dispatcher. One bits are put in the upper fi 
bits^of the word containing the character- If it is the 
lower characterr this word is added with the contents of 
^address* 7 and stored back into the same location- This word 
is then added to the checksum. If the request is formatted 
binary the record length is checked to see if it has been 
decremented to zero. If it hasr the checksum is checked to 
see if it is zero- If notr procedure ^SETCOD* 7 is 



AA 3777 



PRINTED IN USA 



CONTROL DATA CORPORATION 

Arrlpn Mi 1 1 *? pmmlnpmo^f DIVISION MAR 5 1971 



IMS PAGE NO ZZ _ 



DOCUMENT CLASS. _ 

PRODUCT MAMF 17DD OPERATING SYSTEM 

PRODUCT MODEL N n E00k"3.Q MACHINE SERIES 3i20fl- 



entered. If it is zero the completion procedure is 
entered- If the record length has not been decremented 
to zero the control switch is checked- If it is setn 
*C0RE* is checked to see if the requested number of words 
has been filledi if not *C0RE* is incremented- Record 
length is then decremented. The upper-lower character 
switcn is reversed and the record length is checked to 
see if it has been decremented to zero- If it has the 
control switch is reset -Cto indicate that checksum will 
come in next}. If it has not the control switch is set. 
In both cases exit is made back to the dispatcher. If 
the upper lower switch had been set for upper n the word 
containing the character is shifted left eight bits and 
control is transferred below to see if this is the last 
location. If the request was not formatted binaryn upper 
lower switch is reversed and exit is made to. dispatcher. 
If not the core location is incremented. If it is now 
1 ast and the request is not formatted exit is made to the 
completion routine. If it is formatted or the core location 
was not lastn the upper lower switch is checked. If not r^ 
set for uppern exit is made to the common completion routine. ^ 
If it is set for upper the core location is incremented 
and exit is made to the completion routine. 

MS. 5 1713 PAPER TAPE PUNCH - S130D3 

MS-S-1 Pseudo Entry Symbols 

NS13PI Relative distance between initiator and first 
location in S13DD3. 

MS13PC Relative distance between continuator and 
first location in S13D03. 

HS13PE Relative distance between diagnostic timer 
error routine and first location in S13DQ3. 

M5-5-E External Symbols 

MASMOO Entry point in riAEDRV. It will queue the 
reader if the 1713 is busy on entry to the 
initiator of the driver. 

S13M0D Entry in the systems tables and parameters- 
Contains the current setting of the mode switch v 
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S13BZY Entry in the systems tables and parameters - 
Contains logical unit associated with the 
module currently busy with the 1713. It will 
be zero if the 1713 is not busy. 

MAKE(3 Routine that sets the proper error bits in 
Word T of PHSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 



O 



o 



LIS. 5. 3 PHYSICAL DEVICE TABLES 

The 1713 paper tape punch refers to the physical device 
table 1 entries with the following names: 

CORE current core location to be punched from 

LASTP1 last location plus 1 

SWITCH switch settings listed below 

CHECKSUM checksum accumulator 

CALL (3 setting to. get unit status 

STATUS machine status of the punch 

ERRTAB request status word 

TEMP temporary storage 

TIME diagnostic clock location 

^SWITCH* bits are used as follows: 

bit 0: 1 for write operation 

1: 1 if formatted operation 
2: 1 if lower character 
3: 1 if ASCII mode 
4: 1 if not 1st word 

5: 1 if line feed to be sent {control switch} 
b&7: count of spacer {cancel} characters to be sent 
fi ; 1 if the operation is complete but the last 
interrupt has not yet come in. 
MS. 5. 4 DESCRIPTION: 

Initiator 

S13PI is the first location of the initiator. At entry 
the 1713 busy flag -CS13BZY} is checked for zero. If not 
zeron exit is made to MAS400. If zero, routine FNR is 
called. If no request is found the device is cleared & 
exit is made to HAS30Q. 

If a request is found a check is made to determine if the 
device is in TTR mode- If noti TTR mode and interrupt on 
EOP are selected and exit is made to the dispatcher. 
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Uhen the device is already in TTR moder or TTR mode has 
been selected and an EOP interrupt has been generated by 
the switch of moder then write mode and interrupt on 
data and alarm are selected and the continuator is entered 
to output a character- 

Cont i nuator 



S13PC is the first location of the continuator- If the 

interrupt was caused by an alarm conditionr the error 
routine v SETC0D* is entered. If the interrupt was caused 

by 'data r the data transfer section is entered. If an EOP 

interrupt was generated by a switch of mode the initiator 
is re-entered. 

Data Transfer 



If the entry was caused by a data interrupt » the control 
switch is checked. If setr a line feed character is output 
and routine GODISP entered. If not the completion interrupts 
are clearedr TINE is set negativer the completion procedures 
are executed and the initiator re-entered. 

Routine GODISP will set time to the length of time before 
which the next interrupt must be received. If the completion 
bit is not setr the complement of the length is computed and 
placed in (3. If the high order character of this negative 
length is equal to or greater than 5AA -C^with parity} the 
length is increased by $100. If the operation rsv not formatted r 
control is sent to that part of the code which gets data 
from the specified core location. If the operation is 
formatted ASCII bits b & 7 of SWITCH are checked to see if 
any waste time characters are to be sent. If sor the count 
is decremented and a cancel character is sent out. Exit 
is than made to GODISP. If no spacers are to be sentr the 
length is checked to see if all data has already been sent 
out. If sor carriage return line feed is put into A and 
control is passed to the code just after the point at which 
data is obtained from core. If not r control is transferred 
to the point which obtains data from core. 

If the operation if formatted binary the length is checked 
to see if the last word has been sent. If sor the complement 
of the checksum is placed i n Q and the point just after 
data is obtained from core is entered. If the last word has 
not been sentr SWITCH is checked to see if the first word 
has been sent- If sor data is not obtained from core so 
that the complement of the length is punched. If notr data 
is obtained from the location in ^CORE*. It is placed in 
&• SUITCH is checked to see if the upper character is to 

be punched. If sor 0. is shifted right A bits- If not the 
contents of 0. is added to ^CHKSUfl*. The high order ■=) bits 
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of Q are cleared. If formatted AACII and the character 

is a carriage return the control bit is set in SWITCH. 

If formatted ASCII and the character is TABr VTABr or 

FORMr a spacer count of 3 is set into SUITCH. If the 

request is ASCII parity is computed and inserted into bit 

7- The character is then punched. The length is then computed 

and placed in (3. The upper lower switch is reversed. If 

now set for lowerr 1st word switch is set and the remaining 

length shows the operation is complete this was a single 

character output operation- The completion bit is set and 

exit is made to EXIT. Otherwiser the remaining length is 

checked to see if the last word has been sent. If so the 

completion bit is set- If notr and the operation is 

formatted binary and the first word switch is set exit 

is made to G0DISP after resetting the 1st word switch. 

If notr the core location is incremented. If it now says 

the operation is completer the complete bit is set and in 

either case exit is made to G0DISP. 



AA 3777 PRINTED IN USA 



CONTROL DATA CORPORATION 

Arden Hills Development DIVISION MAR 5 1971 

DOCUMENT CLASS_IHS PAGE Mn 15.11 

PRODUCT mamf 1,7Da OPERATING SYSTEM 

PRODUCT MODEL Mn EP n b*3.Q MACHINE SERIES 17DD 



15-L, CAPABILITIES 



The capabilities of this driver are identical to the 
capabilities of the following drivers: 

1. 1711/171E/1713 Teletypewriter Driver. 

E. 17E1/17EE Paper Tape Reader Driver. 

3. 17E3/17E1 Paper Tape Punch Driver. 

All requests honored by the above drivers are honored by 
the 1713 Driver and vice versa- The results in all cases 
are the same. 
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4b. D DISK DRIVER WITH WORD ADDRESSABILITY -CDISKWD} 

This version of the disk driver includes the following 
features: 

1- The driver allows word addressing of all mass storage 

{simulating a 17S1 drum capability} in addition to sector 
addressing. 

E. The driver compares data on disk to core after a read 
or write operation and repeats the operation if the 
data does not compare. 

3- The driver identifies errors {hardware malfunctions > 
and records all occurrences in an error histroy table. 

4. The driver repeats all requests up to ten times before 
calling the DKDIAG program -Cto print out the information} 

4b. 1 ENTRY POINTS 

DKINTR initiator entry 
DKCONT continuator entry 
DKDIAR error entry 

4b. E EXTERNALS 

LOG Engineering File 

DKDIAG Disk diagnostic printout and recovery routine 

Mb. 3 ENTRY INTERFACES 

Q = address of the Physical Device Table 
4b. 4 EXIT INTERFACES 

None 
4b. 5 GENERAL PROGRAM INFORMATION 
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4b. 5-1 INTERNAL SYMBOLS 
CLCKVA 



Number of seconds after which an I/O hangup 
is assumed. 



COMPAR An internal flag to indicate this is a compare 
data operation and not a read/write. 



TOTERR 



A history table of error occurrences. 



Error 
Code 



1 

2 
3 

4 
5 
b 
7 



Meaning 

Clock run out {never printed out} 

Ghost interrupt {never printed out} 

Alarm printed if alarm status bit is set 

On cylinder bit not set after a seek 

operation 

Checkword error 

Internal reject 

External reject 

Load file address register command not 

causing file address register to set to 

correct value. Disk read/write head is 

not positioned correctly. 

Incorrect status. -CLook at the current 

status word for more information on the 

incorrect status.} 

Compare error after a read or write. 



Other internal symbols are defined in the PHYSTB description 
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PHYSICAL EQUIPMENT TABLE 



15|m|l3|l2|ll|lD| T|fl|7|bl5|4|3|2|l|0 



rt 



NC 



Request Code for 
Schedule Request 



RP 



Entry Point of Initiator 



CP 



Entry Point of Continuator 



Entry Point of Diagnostic Routine 



Diagnostic Clock 



Device Logical Unit Number 



Address of Current Parameter List 



ODD 



Device 
Equip. No. 



D D D D D 



T | R 



First Word Address of Data 
Last Word Address of Data +! 



R 



XL 



Dynamic Hardware Status 



Disk Data Transfer Function 



I 



Disk File Address 



Disk Unit Control Function 



Address of PHYSTB for other Unit 



Priority of Overlay Request 



Absolutized Completion Address 



Thread 
Logical Unit From Request 



LABEL 
PHYSTB 



CLCK 
LUN 
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RtfST 

FWD 

LWD 
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FDATAF 

FILEAD 
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Word 
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Word 


13 
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Word 
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Word 


17 
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3r 5 to fir and Parameter N must be preset before entering 
in i t iator • 

E=l Operation is in Progress 
Operation complete 
Equipment Class 
Equipment Type Constant 

Bit 1=1 Device may be read from 'unprotected programs 
Bit 2=1 Device may be written from unprotected programs 
Bit 3=1 Equipment table includes words lfl-33 for 

message buffering. 
Error Indicator = D in Driver 
Temporary Parity Error 
I"ass Storage Device 
Seek in Progress 

Lnit Number Relative to Controller 
Recovery Error Counter 

Do not compare after Read or Write Operations- 
Other Entry has Request Waiting 
Storage for an Overlaid Request 
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4b. b DRIVER DESCRIPTION 



If the paired disk is not busyn a request is presented 
by FNR for completion. If a system directory request 
has been specif iedn the sector number will be removed 
from the directory entry and the transfer effected. 
Otherwise! the request is categorized as REGULAR or 
FORMAT. REGULAR requests are procedded by the routine 
LIKDUM and FORMAT requests are processed by NORMAL. 
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/ 
^fci.b.l FORMAT REQUESTS 



s~ 



The most and least significant bits -CMSB, LSB1 of a FORMAT 
request are interpreted as a sector address. The routine 
NORMAL saves the LSB in the PHYSTB then tests the MSB to 
ensure it is zero- A non-zero MSB is not possible if address- 
ing the disk on this mode. A request type check is then made 
by NORMAL. If a FURITE request is to be executed, the 
routine oJRITOP. is entered to write the record. A FREAD 
request nust first be checked to ensure it is not being over- 
layed- The routine CKOVRL will move the request if it is in 
the input buffer. The routine READOP is then entered to in- 
put the disk record. 



4^.(3.2 REQUEST COMPLETION 



Once a record has been transferred, control is passed to 
USEOUN. This routine causes the completion address to be 
scheduled and the disk unit switching to occur- Transfer is 
then effected to the routine responsible for finding the next 



request. 
4b. b. 3 REGULAR REQUESTS 



REGULAR requests are processed at label LIKDUM. The MSB and 
LSB of a REGULAR request is interpreted as a word address by 
the disk driver- In this mode, the MSB and LSB are converted 
to a sector and word within a sector address- A buffer, 
internal to the driver, is required for the processing of 
records transmitted in this mode. Unconditionally, the finst 
sector -TTb words> is read into the internal buffer and a test 
made for read or write mode. 

A regular READ is first checked, and moved if necessary, to 
ensure that it is not being overlayed- That part of the first 
sector, from the *word within a sector 9 pointer to the ^bth 
word, is then moved from the internal buffer to the requestor's 
buffer. A second request, initiated locally by the driver, 
transfers the remainder of the record directly to the 
requestors buffer- On completion of the transfer, the 
routine USEOWN is entered- 
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Regular WRITE requests are processed in three steps- First 
the sector in the internal buffer is updated from the re- 
questors buffers then output via the routine URITOP. Second 
the number of full sectors which remain are written directly 
from the requestors buffer to the disk via URITOP. Final Iyr 
the last sector is read into the internal bufferr updatedr 
and output. The second and third steps are performed locally 
by the driver- 

// 

/Mb.b-M SHARED ROUTINES FOR READING AND WRITING 

The read routine READOP and the write routine URITOP share 
common logic and differ only in the setup of the data trans- 
fer function. This routine computes a load address function 
from the sector number and initializes the error re-try 
counter. It then initiates a disk transfer at SEEK0P- 

Mt.-b.M-l INITIATION OF A SECTOR SEEK 

SEEKOP clears the COMPAR FLAG -Cused to cause data compare 
function after a read or write}. SEEKOP selects the proper 
unitr selects interrupts on alarm and ready not busy- It 
then sends the controller a seek function and goes to Label 
EXIT- 

4kb-M-2 C0NTINUAT0R OPERATIONS 

The continuator DKCONT checks for and ignores ghost inter- 
rupts r disables the diagnostic clockr saves the disk status r 
then acknowledges the interrupt- If the status is incorrect r 
control is passed to the error sector at DETERR. If the 
seek operation is completer control is passed to Label DATA- 
If the ^do not compare* 7 flag is set the routine is exited- 
Otherwiser the compare flag COMPAR is set when control is 
passed to C0MP0P- 

At the completion of a seek operation control is passed to 
label DATA- The seek request flag is reset- Then several 
tests on the status of the controller are made- If the 
status word indicates that the unit is not on cylinderr con- 
trol is passed to the error section at label REPEAT with 
error code 3 in Q- If the file address register in the 
controller is different than the selected file address ? an 
error has occurred and the desired file address register is 
stored in the error table and control is passed to label 
REPEAT with error code ? in (2- 

Otherwiser a unit is selectedr the alarm and end-of-operat ion 
interrupts are selectedr the first word address minus one 
•CFUD-1]- is patched with the last word address plus oner and 
a data transfer function sent to the controller- The FUD-1 
is then restored to its original value and control is passed 
to Label EXIT- 
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At EXIT the clock is turned on and control is passed to the 
D ispatcher. 

- Mb- 7 ERROR HANDLING 

When an incorrect status occurs after an operationr control 
is passed to Label DETERR to determine what type of error 
occurred- Then at Label REPEAT an entry in the error table 
TOTERR is incremented. If this request has been repeated 
less than ten times the operation will be attempted again- 

If the unit is ready and not busyr control is passed to 
SEEKOP. Otherwiser control is passed to label WAIT to wait 
for one second before returning control to the driver. 
•CNote that this driver requires a diagnostic timer to recover 
from this condition-} 

If this request has been repeated at least ten timesr then 
the fatal error indicator bits in the PHYSTB are set and 
control is passed to the error printout routine DKDIAG with 
the error code in (3- The error codes are shown in Section 
E4.3- 

The disk error routine DKDIAG is entered with the error 
code night justified in the (3 register and the address of 
the Phys cal Device Table in I- The DKDIAG routine is user 
submitted and performs functions such as message printout 
and recovery- Index I must not be changed on return to the 
driver from DKDIAG. 



o 
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Mb-fl HARDWARE REQUIREMENT 

The minimum configuration necessary for operation of this 
driver is: 

1 1704 Computer 

1 170S Interrupt Data Channel 

1 173A Disk Controller 

1 fi53 or S54 Disk Drive 

1 fl50 Disk Pack 

The driver will operate one 1736 controller! which may 
have either A53 or A54 disk drives- 
Additional hardware recommended: 

1 1573 Line synchronizer or equivalent so that the 

diagnostic timer program can be used to detect I/O 
hangups on the disk- 

4b. ^ TWO DRIVES ON ONE CONTROLLER 

The driveri through PHYSTB settings! can identify two disk 
drives which are connected to a common controller- Since 
the controller can operate only one drive at a time! the 
driver will not attempt to operate one drive when the other 
is busy. Howevern at the completion of each request! a 
check is made to see if the other drive has a request 
waiting. If so! the other drive is put into operation- It 
can be seen then that if two disks are connected to the 
same controller and each has several requests queued! then 
the two disk drives will be operated alternately until the 
queues are empty. 

MS. 10 INTERRUPT OPERATION 

The driver does all operations using interrupts! i.e.! the 
completion of seeks and data transfers are signalled by the 
occurrence of certain selected interrupts. Errors are 
detected in the same manner. 

Data transfers are ended when end-of-operation is signalled. 
Seeks are ended when ready and not busy is signalled- 
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■15 | ml 13 | IS 1 11 1 10 



D D D D D 



Not Used 



LN ot Used 

Clean 

Interrupts 

Next Ready and Not 
Busy Interrupt 



End of Operation 
Interrupt Request 



Alarm Interrupt Request 

Not Used 



_J\lot Used 
Release -[Not Used by Driverl 
Select Unit D 
Select Unit 1 



Driver uses following two codes: 

114 for Unit D 
BIM for Unit 1 
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STATUS REPLY 



15 I m|l3 | IE 1 11 1 10 | T | fl | 7 | b | 5 | M | 3 § | 5 | 1 , | T1 

| Ready 



Busy 
Interrupt 
Positioner is on Cylinder 
End of Operation 



Alarmr Error Has Occurred 



No compare 



Protected Instruction or Disk 



Checkword Error 



__Lost Data 
Seek Error 
Address Error 
Defective Track 



Storage Parity Error 

Protect c ault 

Not Used 



ACCESS TINE FOR AN fl53/fi5 l 4 DISK DRIVER 

Maximum Average 

Cylinder Positioning IMS ms TS ms -£2/3 Max Movement! 
Latency 25 ms 12-5 ms -tl/2 Disk Rev-} 

Access 170 ms 107-5 ms 
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47-D 1751 DRUM DRIVER 
M7-1 FUNCTION 



The Drum Driver will execute the I/O commands necessary 
to process a user^s request to read or write the drum 
memory- The requests may be of variable length and may 
transfer information anywhere in core to or from anywhere 
on drum- 

The driver relinquishes control of the Monitor during all 
I/O transfers! since the I/O proceeds without program 
attention via the Direct Storage Access- An interrupt 
returns control to the driver upon end of operation or 
the occurrence of any error - 

The drum driver will handle five request codesi Read 
System Directory Format -CD>i Read -Cl>i Write -CEJt Format 
Read -Cm--, Format Write -Ch}- 

The drum driver will handle the recoverable error conditions 
on the drum and will update the Physical Device Table- The 
drum driver also will simulate disc operations. 



H7-5 ENTRY POINTS 

DRMINT initiator address 
DRMCON continuator address 
DRMERR error entry 

M7-3 EXTERNALS 

DMDIAG drum diagnostic routine 

47-4 ENTRY INTERFACES 

All entry points require that the (2-register contains 
the address of the drum physical device table - 

47.5 EXIT INTERFACES 

None 
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47. fc. GENERAL PROGRAM INFORMATION 

47.L..1 INTERNAL SYMBOLS 

OREJ Control comes to here on output reject. 

TIMERA Timing error flag {while idle>. 

TIMERB Timing error flag {while busy}. 

MAXERR Contains the maximum number of times a reqaest 

will be repeated if a timing error or parity error 

is detected. 

TOTERR Contains the accumulation of all errors. 

ERRCNT Current number of errors on this request. 

STATUS A subroutine to read drum status 

INTREJ Control comes here on input rejects {internal}. 

EXTREJ Control comes here on input rejects {external}. 

SETEFD Set error field subroutine. 

DDIAG1 Call Drum Diagnostic subroutine 

amoni Indirect address of the Monitor Entryn location 



47. b. 2 USER INSTRUCTIONS. 

Physical device table set up. A listing of the drum 
device table is attached. DRUM must be an entry point 

At system initialization time or after a master clearn 
the drum controller should have its interrupt enabled. 
The following code performs this operation: 

LDA = N4101 

ENA *A Clear interrupt 

Out -1 and request interrupt on end of 

operation. 

User supplied interrupt response routine. 

INTDRM LD<2 =XDRUM DEVICE TABLE 

JMPm {DRUM+2} GO TO C0NTINUAT0R 
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47-b-3 PHYSICAL DEVICE TABLE 



DRUM 


num 


*1E0A 


SCHEDULE DRIVER AT LEVEL 1 




ADC 


DRMINT 


EDIN 




ADC 


DRMCON 


EDCN 




ADC 


DRMERR 


EDPGM 




NUM 


-1 


EDCLK 




NUM 


D 


ELU 




ADC 


D 


EPTR 




ADC 


E+l 


EWES 




NUM 


*bb 


DRUM STORAGE T=bn READ 
AND WRITE =3 




NUfl 


$EOO 


ESTAT1 MMBIT 




ADC 





ECCOR 




ADC 


D 


ELSTWD 




NUM 


D 


ESTATE 




BSS 


DRMCLL -Ct,> 


CALL MOVED HERE ON OVERLAY 


TRACK 


ADC 


O-ifl+E 


IE BITS-TRACK 


SECTOR 


ADC 


Oi$A+E 


11 BITS-SECTOR 


S 


ADC 


D-,$C+E 


15 BITS-INITIAL CORE 


FNCORE 


ADC 


Oi^C+E 


IS BITS-FINAL CORE 




ADC 


fl-il+E 


END OF OPERATION INTERRUPT 


RWCTRL 


NUM 


Q-.0 


A-.(3 




NUM 


Q-i-1 


END OF SEQUENCE 




ADC 


RCRR 


SYSTEM DIR READ CODE 


RC 

Ti. fc 1 


NUM 





REQUEST CODE 


DN 


NUM 





NUMBER OF WORDS 


WRITEC 


ADC 


E 


WRITE CODE IN (2 


READC 


ADC 


E+$l* 


READ CODE IN Q 



c 



Word 33 of the device table contains the Read Request Code 
to be used by the driver for reading in System Directory 
programs. I must be set to either RCRR {Request Codes 
for Regular Readn 1> for a stand-alone Monitor or RCFR 
{Request Code for Format Read> for use in the Operating 
System • 
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•47 -fl Program Description 

Initiator section- Upon entryn the (2-register contains 
the address of the physical device table for the drum. 
The drum driver calls the find next request routinei 
FNRi which removes the top entry from the drum^s thread n 
stores the location of the parameter list in the physical 
device table i and returns control to the drum driver- 
If no more requests are on the drums thread i then the 
driver exits to the Dispatcher- If this is an overlayn 
the parameter list is moved to the device table- The 
driver extracts the starting address of core S and the 
mass memory address NNA- Then the driver executes the 
output commands which initiate the I/O transfer- The 
driver gives control to the dispatcher- The I/O transfer 
proceeds without program attention - 

REJECTS 

If an external reject occurred on the output commandn 
the status is read and stored in the device table. And 
if a timing error was presenti timing error flag A is 
seti flag B is clearedn and control is given to the 
dispatcher- If no timing error occurredn the drum 
diagnostic is called with error 7 in d and the status 
in A- The error field is set in the device table and 
the driver proceeds to Al to schedule the completion 
address. If an internal reject occurred! the diagnostic 
is called with error H» The error field is set and the 
call is completed. 

INTERRUPT ENTRY SECTION 

At the end of operation or when an error occurs an 
interrupt occurs- The user supplied response routine 
enters the Interrupt entry DRMCON. If timing error flag 
A is seti it is cleared -Cthis is the resynch interrupt} 
and the diagnostic is called with a six in (2- Control 
then goes to the error counter check section. If timing 
error flag B is seti it is cleared {this is the resynch 
interrupt} and diagnostic three is called- Control then 
goes to the error counter check. If no errors exist in 
the status wordn control is given to A 1 to complete the 
call* Otherwise-, an error exists- If it is the guarded 
address errorn the program protect fault routine PFAULT 
is calledn the error field set and control goes to Al. 
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If the timing error is seti then flag B is seti flag 

A is cleared and control goes to the dispatcher to await 

the resynch interrupt. 

ERROR COUNTER SECTION 

If the error counteri ERRCNTn now equals the maximum 
number of errors -CMAXERR3-1 the error field is seti 
the diagnostic two is called and then control goes to 
Al- Otherwise the error counter is incremented^ the 
status is stored in the device table i diagnostic one is 
called and control goes to AE to repeat the request. 

COMPLETION OF THE CALL SECTION 

If the completion address in the users calling sequence 
lies within the area of a readi or if this is a directory 
call and the read was unsuccessful! then drum diagnostic 
will be called {error A} the completion address will not 
be scheduled and the drum driver will proceed to the next 
request- If the transfer was unsuccessful i due to a 
timing errori parity errori or some other undiagnosed 
error condition! the drum diagnostic will be called 
•terror E>n the error field V will be set {passed to user 
in Q at completion address}. Upon encountering an error 
the driver calls upon the drum diagnostic program DRMDIG 
to print out the error code and drum status. 

The error codes are as follows: 

Error Number Description 

1 Repeated the request due to an error. 

E Request not successfully completed. 

Attempted to repeat the maximum number 

of times. 

3. A timing error occurred while the drum 
was busy. 

4. An internal reject on input or output 
command occurred. {Equipment not turned 
on or equipment code not set to E.> 

5- An external reject on input command. 

Controller has malfunctioned, 
b A timing error occurred while drum was 

not busy. 
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Error Number 
7 



Description 

An external reject occurred on an 
output command and no timing error 
was set- This is a controller 
malfunction. 

Either a directory call or an overlay 
read request was not completed due 
to an irrecoverable error. 

A guarded address error on a writen 
location of the request is in the 
A-register- 



M?.^ 



If this is a directory read requestn all of the (3- 
register will be passed to the user- Otherwise the error 
field is placed in the high order three bit of (2- The 
Complete Request Routine is called to schedule the 
completion address- Control is given to the initiator 
section to find the next request- 
Program Limitations and Restrictions: 

The program as coded is restricted to running only one 
drum- 
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4fl.D 1777 PAPER TAPE DRIVER 
4fi-l FUNCTION 

The 1777 Paper Tape Station Driver is a standard driver 
which will operate under V3.Q Operating System- This 
driver is essentially the 1721/1722 Reader Driver and 
the 1723/1724 Punch Driver- Compatability is such that 
the 1777 Paper Tape Station Driver can replace the 1721/ 
1722 Reader Driver and the 1723/1724 Punch Driver. 

4A.2 MODULES 

The 1777 Paper Tape Station Driver is composed of four 

•C4> modules- 
Mass memory driver control program 
Paper tape punch driver 
Paper tape reader driver 

Common routines to the Paper Tape 
Punch and Reader 

Uhen the 1777 Paper Tape Station Driver is mass tiemoryn 
a small routine precedes the punch driver and the reader 
driver. This routine calculates and inserts the absolute 
addresses of the drivers Initiator! Continuator and Error 
Routine into the PHYSTAB- Also STCK is internal to the 
punch driver module and reader driver module- 

Uhen the 1777 Paper Tape Station Driver is core resident 
STCK is external to the punch driver module and reader 
driver module- 

4A.3 1777 PUNCH DRIVER MASS MEMORY 

4S-3.1 ENTRY SYMBOLS 

PUNCHI Driver Initiator Address 

PUNCDR Driver Continuator Address 

PCHERR Driver Error routine for Diagnostic Timer- 



1- 


MASDRV 


2- 


PUNCDR 


3. 


PTREAD 


4- 


STCK 
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MA.3.E EXTERNAL SYMBOLS 



MAS3QD Entry in MASDRV. It will check if any mass 
memory drivers are waiting in core. 

MAKEd Routine that sets the proper error bits in word 
nine -CT> of PHYSTAB to be passed to user. 

ALTDEV Program that processes irrecoverable errors. 



4fi.3.3 PHYSICAL DEVICE TABLE 

The Physical Device Table for the punch driver mass memory 
is set up as follows: 



ENT 


PPTPCH 


EXT 


MASDRV-.TP1777 


ADC 


TP1777 


PPTPCH NUM 


$1EAA 


ADC 


MASDRV 


ADC 





ADC 
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NUM 


-1 


NUM 
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NUM 


a 


NUM 


£XXXX 


NUM 


5XXXX 


NUM 
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NUM 
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NUM 


a 


NUM 
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NUM 


$Ffl 


ADC 


TP1777 


NUM 
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NUM 





NUM 


D 


NUM 





NUM 


a 


NUM 


D 


NUM 






Punch Entry 

Initiator Entry 

Continuator Entry 

Time Out Entry 

Diagnostic Clock 

Logical Unit 

Call Parameter List 

Hardware Address 

Request Status 

Status Word 

Current Core Location 

Last Word Address +1 

Hardware XHelibes 

Driver Length 

Name associated with sector * 

Checksum Word 

Length of Record 

Return Address FNR 

Return Address Common 

Error Code Storage 

Temporary Storage 

Flag of Lost Data 
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4S-3.M SUBROUTINES 

i4fl. 3.14.1 STCK1Q -CStatus Check* 

Clears the interrupt and checks status to see if alarm 
condition occur- If alarm occurs it checks for lost 
data if so exit if not set alarm code in A and go to 
STCD1D. 

Normal return is at P+2 

4a.3-4.-S; STCD1D {Set Code> 

This routine is entered when there is a non recoverable 
error- Upon entering! A contains the error code. The 
logical unit is then Exclusive Ored in A. This then goes 
to NAKEfl and then to Alternate Device Handler- 

r > 4fl.3.4.3 SINT1D -CSet Interrupts} 

This routine goes to find next request. Upon P_E return 
it sets the interrupts! starts motioni and exits. 

--- Upon P+l return it exits to NASDRV because no more 
requests are threaded. 

46.3.4.4 CREdlO -CClear Interrupt Request} 

This routine clears interrupts! inputs statusi goes to 
/;.: MAKE<2 and exits- 

Mfl.3.S^L DESCRIPTION 

A -i Initiator 

^ PUNCHI is the initiating entry to the driver. At entry 
exit is made to SINT1Q. Upon return checksum is cleared 
and exits to the dispatcher. 

Continuator 

PUNCDR is the continuator entry. At entry exit is made to 
-/yh STCK1Q upon return at P+5 no errors have occurred-i if return 
■ ■'■'-_ was at P+l a jump to the validation error routine would 
r^\ ;■ occur. PTPSQD is the tag address- 
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Data Transfer Operation Punch 



Formatted Binary 

The complement of the length is punched on the first 
two -CE> frames of each record- Each word is added to 
the checksum and outputted by character. The path that 
formatted binary uses is PUNCDR-, PTP010-, PTPOEO-i PTP030 
PTP050-, PTP070-, PTP060-. PTPffiOO-, PTPlbO-, PTP200-. and 
PTP3DDF - Upon completion the checksum is complimented 
and written out for parity purposes- 

Binary 

Binary is a direct data to punch. The path that binary 
uses is PUNCDR-, PTP010-. PTP050-, PTP030-, PTPD7Dt PTPOflO-, 
PTP1QQ-, PTPlbO-, PTP200 and PTP3DD. Upon completion the 
checksum is not punched. 

Formatted ASCII 



Each character punched has its own parity and it is 

even parity. The path that formatted ASCII uses is 

PUNCDR-, PTPDlDn PTP0S0-, PTPD3D-, PTP0140-. PTP070-, PTPDfiD-. 

PTP100-. PTP1D5-, PTP110-, PTP1MD, PTPEDD-, and PTP3DD. 

Upon completion a carriage return and line feed is punched 

If a carriage return is encountered while punching! a line 
feed character is punched followdng the carriage return. 

ASCII 



Each character punched has it y s own parity and it is 
even. The path that it uses is PUNCDR-. PTP010-, PTP020-. 
PTP030-. PTPD7D-, PTPDfiD-. PTP1DD-, PTP105-, PTP1MD-. PTP200-, 
and PTP3DD. 

Error Routine 



I# the Diagnostic Timer times out it will enter this 
routine PCHERRn which sets alarm status code and goes to 
STCD1D. 
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1777 READER MASS MEMORY 

ENTRY SYMBOLS 

PREADI Driver initiator address 

PTREAD Driver continuator address 

PTERR Driver Error Routine for Diagnostic Timer. 

EXTERNAL SYMBOLS 



L|fl.L|.3 



MAS3DD 

MAKEd 

ALTDEV 

PHYSICAL DEVICE TABLE 



Entry in MASDRV. It will check if any mass 
memory drivers are waiting in core. 
Routine that sets the proper error bits in 
word nine -CTl of PHYSTAB to be passed to user. 
Program that processes irrecoverable errors. 



The Physical Device Table for the Reader Driver Mass 
Memory is set up as follows: 



PPTRDR 



O 



ENT 


PPTRDR 


EXT 


MASDRViTP1777 


ADC 


TP1777 


NUM 


*12AA 


ADC 


MASDRV 


ADC 
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ADC 
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NUM 


-1 


NUM 
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NUM 





NUM 


SXXXX 


NUM 


#XXXX 


NUM 
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NUM 





NUM 
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NUM 
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NUM 


*FF 


ADC 


TF1777 


NUM 
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NUM 
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NUM 
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NUM 
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NUM 
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NUM 
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NUM 


D 



Reader Entry 

Initiator Entry 

Continuator Entry 

Time Out Entry 

Diagnostic Clock 

Logical Unit 

Call Parameter List 

Hardware Address 

Request Status 

Status Uord 

Current Core 

Last Word Address +1 

Hardware Status 

Driver Length 

Some associated with sector * 

Check Sum 

Length of Record 

Return for FNR 

Return Address Common 

Error Code Storage 

Temporary Storage 

Flag for Lost Data 
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4A.4.4 SUBROUTINES 

4A-4.4.1 STCK10 {Status Check> 

This routine clears the interrupt and checks status to 
see if an alarm condition occured. If alarm occurredn it 
checks for lost data n if soi exiti if noti set alarm in 
A and go to STCD1D- 

Normal return is at P+2. 

4A.4.4.2 STCD10 {Set Code> 

This routine is entered when there is a non recoverable 
error. Upon entering A contains the error code. The 
logical unit is Exclusive Ored into A. This then goes to 
NAKE(2 and then to Alternate Device Handler. 

4fl. 4.4.3 SINT10 -CSet Interrupts} 

This routine goes to find next request. Upon P+S returni 
it sets the interrupts! starts motion and exits- 

Upon P+l return it exits to MASDRV because no more requests 
are threaded. 

4A-4.4.4 CREfllD {Clear Interrupt Request} 

This routine clears interrupts! input status goes to 
flAKEG and exits is taken- 
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Mfl.M-S DRIVER DESCRIPTION 

Initiator 



PREADI is the initiating entry to the driver. At entry exit 
is made to SINT10. Upon return checksum and length are cleared 
and exit to the dispatcher is made. 

Conti nuator 



O 



PTREAD is the continuator entry. At entrynexit is made to 
STCK10 upon return at P+E no errors occurred. If return was at 
P+l a jump to the error routine would occur. PTRITO is the 
tag address. 

Data Transfer Operation Reader 

Formatted Binary 

The compliment of the length is read in on the first 
two -CE} frames of each record. The path that the for- 
matted binary uses is PTREADn PTRD3Dn PTROtjD-, PTRDSDn 
PTROflD-, PTRmDn PTR1ED-, PTR130-, PTRlfiD-. PTREDQ-, PTRE10-, 
and PTRE70- Upon completion the checksum is compared 
and if zero no error. 

Binary 



Binary is a direct data to core. The path that binary 
uses is PTREAD-, PTRD^D-, PTR1ED-, PTR13Q-, PTRlfiD-, PTR2MD-, 
PTREbD-i and PTRE7D. There is no checksum to compare. 

Formatted ASCII 



Each character read has it^s own parity and it is even 
parity. The path that formatted ASCII uses is PTREAD 1 
PTR0A0-. PTRD^O-, PTR1ED-, PTR130-, PTR135-, PTRIMD-, PRTlflO-, 
PTREOD-, PTRE1D and PTRE7Do Upon treading a carriage 
return it exits to PTRE1D and completes the request. 

ASCII 



O 



Each character punched has its own parity and it is 
even. The path that it uses is PTREAD-, PTRmCN PTR1ED-, 
PTR130-, PTR13S-, PTR1MG-, PTRlfiD-, PTREiJO-, PTRE7D. 

Error Routine 

If the Diagnostic Timer times out -it will enter this routine 
PTRERRn which sets the alarm status code and goes to STCD1D. 
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Mfl.S 1777 PUNCH DRIVER CORE RESIDENT 

MA. 5.1 ENTRY SYMBOLS 

PUNCHI Driver Initiator Address 

PUNCDR Driver continuator address 

PCHERR Driver error routine for diagnostic timer 

Mfl.S.2 EXTERNAL SYMBOLS 

STCK1D Entry in STCK it checks for alarm. 
STCD10 Entry in STCK it sets the error code for 

alternate device. 
SINT10 Entry in STCK it sets interrupts. 
CRE(210 Entry in STCK it clears interrupts. 

Mfl.5.3 PHYSICAL DEVICE TABLES 

The Physical Device Table for the punch driver core 

resident is set up as follows: r^ 



Punch Entry 
Initiator Entry 
Continuator Entry 
Time-out Entry 
Diagnostic Clock 
Logical Unit 
Call Parameter List 
Hardware Address 
Request Status 
Status Word 
Current Core Location 
Last Word Address +1 
Hardware Status 

Some associated with sector * 
Checksum Hord 
Length of Record 
Return Address FNR 
Return Address Common 
Error Code Storage 
Temporary Storage 
Flag for Lost Data 
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4A-S.M DRIVER DESCRIPTION 

Initiator 



O 



PUNCHI is the initiating entry to the driver. At entry 
exit is made to SINT10- upon return the checksum is 
cleared and an exit to the dispatcher is made. 

Continuator 



PUNCDR is the continuator entry. At entry -= exit is made 
to STCK1Q upon normal return P+5 no errors occurred. If 
return was at P+l a jump to the validation error routine 
would occur. PTP5QQ is the tag address. 

Data Transfer Operation Punch 

See Section Wfl.3.5 Data Transfer Operation Punch. 

Error Routine 

If the diagnostic timer times out it will enter this 
routine PCHERRt which sets the alarm status code and qoes 
to STCD1D. 
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1777 READER CORE RESIDENT 

ENTRY SYMBOLS 

PREADI Driver initiator address 

PTREAD Driver continuator address 

PTRERR Driver error routine for diagnostic timer- 

EXTERNAL SYMBOLS 

STCK1Q Entry in STCK it checks for alarm. 
STCD10 Entry in STCK it sets the error code for 

alternate device. 
SINTia Entry in STCK it sets interrupts- 
CREdlO Entry in STCK it clears interrupts. 

PHYSICAL DEVICE TABLE 

The physical Device Table for the reader driver core 
resident is set up as follows: 



PPTRDR 



ENT 


PPTRDR 


EXT 


PREADI iPTREAD 


NUM 


S1EAA 


ADC 


PREADI 


ADC 


PTREAD 


ADC 


PTRERR 


NUM 


-1 


NUM 


o 


NUM 


a 


NUM 


$xxxx 


NUM 


$xxxx 


NUM 





NUM 





NUM 





NUM 


a 


NUM 


a 


ADC 


TF1777 


NUM 





NUM 


a 


NUM 


a 


NUM 


a 


NUM 


a 


NUM 


a 


NUM 


a 



-.PTRERR 
Reader Entry 
Initiator Entry 
Continuator Entry 
Time Out Entry 
Diagnostic Clock 
Logical Unit 
Call Parameter List 
Hardware Address 
Request Status 
Status Word 
Current Core 
Last Word Address +1 
Hardware Status 

Some associated with Sector * 

Checksum 

Length of Record 

Return for FNR 

Return Address Common 

Error Code Storage 

Temporary Storage 

Flag for Lost Data 
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AA 3777 



4fi-b-q DRIVER DESCRIPTION 
Initiator 



PREADI is the initiating entry to the driver. At entrv 
exit is made to SINT10- Upon return checksum and length 
are cleared and exit to the dispatcher is made. 



Continuator 



vlrlin continuator entry. At entry exit is ma d e to 

STCK10 upon return at P + E no errors occur. If return was 

. *** a Jump , , to the error routine would occur. PTRno 
is the tag address. 

Data Transfer Operation Reader 



See Section H&.H.5 Data Transfer Operation Reader 
Error Routine 

If the Diagnostic Timer times out it will enter this 
STCDlS? PTRERRl which sets ala ™ status c°de and goes to 
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Mfl.7 SUBPROGRAM -CSTCO 

MA. 7-1 STCK10 {Status Check> 

Clears the interrupt and checks status to see if alarm 
condition occured- If alarm occured it checks for lost 
datan if so exiti if not set alarm in A and go to 
STCD1Q. 

Normal return is P+E 

MA. 7.2 STCD1D {Set Code} 

This routine is entered when there is a non recoverable 
error- Upon entering A contains error code- The logical 
unit is Exclusive Ored into A- This then goes to MAKE<2 
then to Alternate Device Handler- 

Hfl-7.3 SINTjjQ {Set Interrupts} 

This routine goes to find next request- Upon P+E return 
it sets the interrupts and starts motion then exits- 

Upon P+l returrii it exits to the dispatcher because no 
more requests are threaded. 

Mfi.7. 1 * CRE010 {Clear Interrupt Request} 

This routine clears interrupts! inputs statusn goes to 
MAKES and exits- 
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4T.0 172b/405 CARD READER DRIVER 
4=1.1 FUNCTION 

The Jj?dti/MD5 Card Reader Driver is a standard software 
driver which will operate under the 1700 MSOS 3.0 
Operating System- This driver cannot perform read 
operations on any other card reader- 

4T.5 ENTRY POINTS 

IN17c?b initiator entry 
CN172b continuator entry 
EX172L» error entry 

4T.3 EXTERNALS 

MAKEd 

ALTDEV 

HAS300 declared external if the driver is mass 

memory resident. 
BUFALC declared if the driver is buffered 

41.4 GENERAL PROGRAM INFORMATION 

4T.4-1 ASSEMBLY OPTIONS 

The li7Eb/405 Card Reader Driver has two assembly option 
control cardsi which control six assembled versions of 
the 172b/405 Driver- 

There are three optional versions of converting Hollerith 
to ASCII. The following is a description of the 
differences that exist in the three versions- 

-Cl> ASCIIh3 



The 172b Controller has a hardware conversion of 
the American Standard Code for Information Interchange 
as it was determined to be in lTb3. The hardware 
conversion is designed to recognize a separater card 
b-7-fl-T punch t because of this the normal EOF card 
7-fl punch {word 14 of the PHYSTAB>t will not be 
recognized. 
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■C2> ASCIIbfl 



This version employs the standard software 
algorithim that is used in other drivers to convert 
Hollerith to ASCII. The only difference is the 
table of hexidecimal codes- This table reflects the 
revisions in the American Standard Code for Infor- 
mation Interchange as revised in nbA. If the 
software conversion is usedi the end of file 
pattern is set in word 14 of the PHYSTAB- It can be 
set to anyone column configuration the user desires- 

•C3> CDC SUBSET 



The CDC Subset is the same as ASCIIbfl with the 
following exceptions. 

A. The ll-fl-2 punch will be interpreted as a 
hexidecimal 7D . 

(_J B. The 12-A-2 punch will be interpreted as a 

hexidecimal 7B- 

C The 11-0 punch will be interpreted the same as the 
ll-fl-2 punch. 

D. The 12-0 punch will be interpreted the same as the 
12-A-2 punch- 

The CDC Subset option enables the information read 
on the 172fci/4D5 Card Reader to be compatible with the 
CDC 3000 Series Computers and bOOO Seriesn which use 
CDC ASCII- 

The 172Lj/4D5 Driver has an assembly option for two mode 
of operation t buffered and non-buffered. Listed below is 
a general description of each mode- 

■Cl> BUFFERED 

If the buffered version is selectedn the first word 
of the card is read direct. The reason for this is 
that the binary card status comes up after the first 
word of a card has been transferred into the computers 
memory. This status is used to help determine the 
length of the buffered transfer. An exit is made 
from the driver after the buffered transfer has 
started. Control is returned to the driver when an 
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•CE> NON-BUFFERED 

If the non-buffered option is selected! the 
information on one punched card is read and 
processed before an exit is made from the driver- 
The reason for this is that when the data status is 
up it remains up until the entire card is read from 
the controllers buffer memory. This feature allows 
the driver to run at a low priority! for there is 
no longer any danger of losing data. 



MT-S DESCRIPTION 



At the entry point EX17Etn time expired! error code zero 
is set and the Alternate Device Handler is entered. 

At the initiator entry! routine FNR is entered to see if 

a request is stacked. If noti exit is made to the 

dispatcher. If there is a request! the checksum accumulator! 

packing cycle indicator! hollerith error flag! and 

sequence check words are. cleared. i j 

At the label FEEDCDi the relative address of label NEXT 
from label NOTALR is stored in the subroutine return 
address word -CRETURN3-. Status is taken and a test is 
made to see :.f the c ird reader is ready. If it is not 
ready! a jump is made to label ALA. If the card reader is 
ready! a request for interrupt on Data and Alarm is made. 
The Diagnostic timer is set and an exit is made to the 
Dispatcher. 

At the entry point! CN172bV status is taken and a test is 
made to check for an alarm- If there is no alarm! jump 
to label NOTALR. If there is an alarm! a test is made to 
check for the following conditions. 

a. MANUAL SWITCH OR POWER OFF 
o. STACKER FULL OR JAM 
c FAIL TO FEED 

d. SEPARATOR CARD 

e. ERROR -[PRE-READ OR COMPARE} 

f. PROTECTED 
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If none of these conditions existn a jump is made to label NOTALR. 
If one or more of these conditions are seti a test is made to see if 
there has been a Pre -Read or Compare error. If there was a Pre -Read 
or Compare errori the error code COMPAR -C3> is entered in the *A* re- 
gister and a jump to label ERROR is made otherwise jump to label ALA- 

Label ALA is the entry point to a routine that handles alarm condi- 
tions- There are two versionsi one is selected at assembly time with 
an equate card- If Et3U BUFER -CD* the non-buffered version is assem- 
bled. When entry is made at label ALAt error code ALARM -CE> is in- 
serted in the *A* register and a jump is made to label ERROR. If ECU 
BUFER -Cl> the buffered version is assembledn a test is made to see if 
the 170b is not busy. If it is not busyn the error code ALARM -C5> is 
inserted in the *A* register and a jump isjmade to label ERROR. If 
the 170(3 is busyn the data transfer is terminated and alarm error -CE?> 
code is inserted in *A* and a jump is made to label ERROR. 

At label NOTALR the current buffer address BUFFAD is made equal to 
the starting address of the flQ word buffer {BUFFER} a jump is then 
made to label NOTALR modified by RETURN. 

At label NEXTt a test is made to determine if the request is format- 
ted. If it is formattedn jump to label FRDBIN. If it is not format - 
) tedn a test is made to see if the request is ASCII or Binary. If it 
is binary-i jump to label FRDBIN- If ASCII skip to label FRDBIN. 

At label FRDBINi a test is made to determine the mode ASCII or binary. 
If it is binaryn jump to label Afl- If it is ASCIIt an assembly op- 
tion is used. If it is ASCIIbfli the driver treats it like binary and 
the next instruction is at label AAt but if it is ASCIIti3n the rela- 
tive address from NOTALR to TOSKIP is stored in the subroutine re- 
turn address RETURN. The release negate function bit is set in *A* 
and a jump is made to label DA172b. 

At label Afin the relative address from NOTALR to BB is stored in RE- 
TURN. An Assembly option sets the release negate function bit in *A* 
if it is ASCIIb3 and the negate function bit for ASCIIbfln a jump is 
then made to label DA172b. 

At label DA17Btn the function code is increased to include end of 
Operation and then stored in TEMPWD. Status is then taken and a test 
is made to check if the data bit is set. If it is not set-i the sub- 
routine return address is made to equal NEXT-NOTALR and exir is made 
to the dispatcher to await for Data Interrupt. If data is up-, the 
card reader is functioned with the code stored in TEMPWD. Status 
word is then read from the card reader and stored in TEMPUD* Status 
is then taken and stored. A test is made to check for a separator 
card- If it is a separator cardn reload memory and jump to label 
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If it is not a separator card! there is an assembly option! either 
buffered or non -buffered- If it is non-buff eredi input the next word 
and take status. A test is then made to check for end of operation- 
If there is no end of operation! the card transfer is not complete! 
and the cycle is repeated with a jump to label PETE- If end of 
operation status is upi jump to label NOTALR- If it is buffered! a 
check is made for a binary card- If it is a binary cardi jump to 
label LONGBF- If it is not a binary cardi a check is made to see if 
the ASCIIS conversion is usedi if noti jump to label LONGBF- If the 
ASCIIti3 conversion is usedi a check is made to see if it is an ASCII 
Request- If it is an ASCII Request! a jump is made to test if the 
request is formatted- If the request is not formatted! jump to label 
LONGBF. If it is formatted! there is an ASCII card in a binary deck 
and a jump is made to label SHORT - 

At label SHORTt load A with $0=126- This is computer code for in- 
crease A by 55fl. Jump to label STBF. 

At label LONGBFn load A with $0=1501 increase A by $50n jump to label 
STBF- 

At label STBF! A is stored in BLENTH. The last address +1 of the 
buffer is placed in the first word of the buffer- Start the 170b 
Data Transfer and exit. f 

At label TOSKIPt the first word that was read in routine DA17Bb is 
taken from storage TEMPUD and placed in the first word of the flO 
word buffer. Then jump to label ASCII - 

The ASCII conversion that is used is an assembly option controlled 

by an equate instruction. If ECU ASCIbfl-COl then the standard ASCII 

hardware conversion is used. If E(3U ASCIbfl-Cl or 5> then the soft- 
ware conversion is used- 

At label ASCII i if E(3U ASCIbfl-C0>i the status word that was taken 
after word one was read in routine DA172b and stored in word STATUS. 
The binary and separator status bits are set after the first word is 
transferred to computer memory. A test is made on this word for 
binary status. If it is binaryi a no 7=1 error code -C1E> is entered 
in *A* and a jump is made to label ERROR. If it is not a binary 
cardi the first word of the flO word buffer is transferred to the 
first word of the users buffer. A test is then made to see if the 
users buffer is full. If it is fulln terminate transfer and jump to 
label DONE- If it is not f ul 1 ! a test is made to see if MO words 
have been transferred- If 40 words have not been transferred! jump 
to label ASCII and repeat the cycle- If 40 words have been trans- 
ferred a test is made to determine if the request was formatted- If 
the request is formatted! jump to label DONE- If the request is non- 
formatted! jump to label FEEDCD- 
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At label ASCIIn if E<2U ASCIbA-Cl or E>n a column is picked up from the 
bufferi converted to ASCII via subroutine CONVERT shifted left A 
bitsi and stored into the indicated core location. The PHYSTAB word 
CORE is then incremented. If the number of words requested has been 
readi label DONE is entered- If noti the buffer address is increment 
ed- If the buffer has been emptied and this is a formatted requesti 
label DONE is entered- If this is an unformatted requestn label 
FEEDCD is entered- 

Subroutine CONVERT is a subroutine to convert IE bit hollerith col- 
umns to ASCII- It does this by computing an index to a table of 
ASCII codes. Punches in column E thru 7 add ShE through $t7 to the 
index respectively. A punch in columns 1 and T add 571 and $7T 
respectively. A punch in column A adds $1A to the index- If the 
resultant sum exceeds $7F an illegal Hollerith punch combination was 
present and the Hollerith error flag will be set. If the index is 
below SAQt the bottom 4 bits are saved and the zone punches are then 
processed. If column IE is punchedn 57Q is added to the index. If 
column 11 is punchedi $L0 is addedi and if column zero is punchedn 
5S0 is added- If the resultant sum exceeds $?Ft more than one zone 
punch was present in the column and the punch combination is report- 
ed to be illegal and the Hollerith error flag is set as beforen un- 
less the CDC subset option was chosen then the illegal punch is 
{^J checked for 11-D and 1E-0 punch- If 11-0 is punchedi it is process- 
ed as $7D and if 1E-D is punchedi it is processed as $7B. Whenever 
an illegal Hollerith punch is detected the ASCII representation for 
a question mark -C?} is set in that column- By doing so the user is 
able to complete his readn identify the error and continue if he de- 
sires. The Hollerith error flag is processed at label TOMAKfl. If 
no error is detected during the conversion the low order b bits of 
the index are used to access the ASCII character table and the con- 
version is complete. At label BB transfer the first word read in 
DA17Eb and store it in the first word of the buffer. A word is ob- 
tained from the buffer via subroutine GETURD. If this is the first 
card of the requesti the card is checked to see if this is an end of 
file. If sot label EOFRD is enteredn if noti the card is checked 
to see if it contains a 7-i.T punch in column one. If it doesn label 
FRDBE is entered. If noti and it is not the first cardi the 7i c J 
punch is missing and is reported via error code IE to the Alternate 
Device Handler. If it is the first cardn the mode is set to ASCII 
and label ASCII is entered. 

At label FRDBE the word just obtained is checked to see if checksum 
override is indicated. If soi the indicator is set. The sequence 
number is then checked. If incorrect and this is not the first card 
of a records this fact is reported to the Alternate Device Handler 
with error code -C^} set- If it is the first card the current se- 
quence number is then set to the one just read. The sequence num- 
ber is then incremented by onei and another word is obtained from the 
buffer via subroutine GETURD- 
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If this is the first card of the recordi this word should be the 
complemented record length. If non-negativen this fact is reported 
to the Alternate Device Handler with error code 10. If it is nega- 
tive-, it is stored in PHYSTAB word Ifl. At label FRDB7 the loop 
begins which gets the rest of the word in the record- 

The purpose of subroutine GETURD is to construct successive lb bit 
words from the IE bit columns stored in the buffer- To perform thisn 
4 columns are combined to produce three words. This is performed in 
three successive cycles as words are requested. Upon completion of 
each cycle-i the next cycle is set for future entry. 

At label DONE-, the interrupts are cleared and a jump is made to label 
MAKEtf. Upon return the diagnostic clock is set negative! and a jump 
is made to the IN175b + 1- 

At label ERRORn the error code and logical unit number are combined 
for output by the Alternate Device Handler-i and bits 14 and IS of 
the request status PHYSTAB word are cleared- Status is savedi the 
controller is clearedn and subroutine MAKE(3 is entered- Upon returni 
exit is made to the Alternate Device Handler- 

The purpose of subroutine MAKEtf is to set the address of the next 
word of the buffer if a READ request does not get as many words as ( 
requested. Bits 13-. 14-. IS of ERRTAB are set if there was a device v 
failuren short read or end of file condition. Exit is made to the 
address stored in RETURN. 

At label FRDB7i if the remaining record length is zeroi exit is made 
to label FRDBfl to see if the checksum is correct. If noti the core 
address is checked to see if the number of words requested has been 
read. If soi record length is incremented and checked for zero. If 
noti reading continues until the entire record has been read. At 
this timei the complement of the checksum is read and the sum check- 
ed for zero. If noti and the checksum override was not indicated-, 
error code four is reported to the Alternate Device Handler. If 
zero or checksum override was indicatedi exit is made to label DONE. 

At label RDBINt the current core location is checked against LAST+1. 
If equal t one column only is to be read and label ONECHR is entered. 
If noti a word is obtained from the buffer via subroutine GETURD- 
It is stored into core and the core location is incremented- This is 
repeated until t~»e number of words requested has been readi at which 
time label DONE is entered. At label ONECHRt the low order four bits 
are cleared from the word just read and the word is stored into core- 
Label DONE is then entered- 

At label E0FRD-. the error bit is set in the request status word of 
physical device table. Exit is then made to label DONE- This will ^ 
cause entry to be made to the completion routine with the error 
indicator set without first going to the Alternate Device Handler- 
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50. 172*1-2 CARD READER DRIVER 

50. 1 FUNCTION 

The 172=1-2 Card Reader Driver is a standard software 
driver which will operate under the 1700 NS0S 3.0 
Operating System- Compatabi lity is such that the 172"}- 
driver can be used to perform read operations on the 
172A/i*30. 

50.2 ENTRY POINTS 

INl?^ 11 ) initiator entry 
CN17E ,C J continuator entry 
EX172T error entry 



50-3 EXTERNALS 

C 



AL.TDEV Alternate Device Handler 
(1AKEG 



50. l 4 DRIVER DESCRIPTION 



At the ent-~y point EX172 C N time expired-i error code zero 
is set and the Alternate Device Handler is entered. 

At the initiator entryi routine FNR is entered to see if 
a request is stacked. If notn exit is made to the 
dispatcher- If there is a requesti the checksum 
accumulator packing cycle indicator! hollerith error 
flagn and sequence check words are. cleared! and exit is 
then made to symbol FEEDCD -Cfeed a card}. 

At symbol EOFRDi the error bit is set in the request 
status physical equipment table word. The offset bit 
is set to cause the end of file card just read to be 
offset. Exit is then made to symbol DONl. This will 
cause entry to be made to the completion routine with thn 
error indicator set without first going to the Alternate 
Device Handler. 
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Routine CNVRT is a subroutine to convert IE-bit hollerith 
columns to ASCII. It does this by computing an index to 
a table of ASCII codes- Punches in columns 2 through 7 
add $b2 through $b7 to the index respectively- A punch 
in columns 1 and T add $71 and 57T respectively- A punch 
in column A adds $lfi to the index. If the resultant 
sum exceeds $7F an illegal Hollerith punch combination 
was present and the Hollerith error flag will be set. 
If the index is below $fl0i the bottom M bits are saved 
and the zone punches are then processed. If column IE is 
punchedi t7Q is added to the index. If column 11 is 
punchedi $b0 is added! and if column zero is punched! 
$50 is added. If the resultant sum exceeds $?F-i more 
than one zone punch was present in the column and the 
punch combination is reported to be illegal and the 
Hollerith error flag is set as before- Whenever an 
illegal Hollerith punch is detected the ASCII representation 
for a question mark-C?} is set into that column. By doing 
so the user is able to complete his readi identify the 
error and continue if he desires- The Hollerith error flag 
is processed at symbol TOMAKfl- If no error is detected 
during the conversion the low order t> bits of the index 
are used to access the ASCII" character table and the 
conversion is complete. 

At entry point CN17E c ii the continuator or interrupt time 
entryn the base address of the physical device table t is 
placed in the index register and status is read. If alarm 
error is set! an error is reported via error code 2. If it 
is a data interrupt a column in input and stored in the 
bufferi and procedure EXIT is entered. 

At procedure EXITt the buffer address in incremented! the 
interrupt on data! EOPi and alarm is selected. Exit is 
then made to the dispatcher to await the next interrupt. 

If the interrupt was an end of operation -CE0P} a jump is 
made to symbol N0TALR- At NOTALR the buffer address is 
re-initialized! and a check made to determine whether the 
operation is a formatted or unformatted READ. If it is a 
formatted READ procedure FRDBIN is entered. If unformatted 
ASCIIi procedure ASCII is entered. 11 unformatted binary! 
procedure RDBIN is entered. 
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At procedure FRDBINi a word is obtained from the buffer 
via subroutine GETURD. If this is the first card of the 
requestn the card is checked to see if this is an end of 
file. If son procedure EOFRD is entered- If noti the 
card is checked to see if it contains a 7-iT punch in 
column one. If it doesn procedure FRDBE is entered. If 
noti and the request is ASCII i procedure ASCII is entered. 
If noti and it is not the first cardi the 7-%^ punch is 
missing and is reported via error code IE to the Alternate 
Device Handler- If it is the first cardn the mode is set 
to ASCII and procedure ASCII is entered. 

At procedure FRDBE the word just obtained is checked to 
see if checksum override is indicated. If soi the indicator 
is set. The sequence number is then checked. If correct 
and ~his is not the first card of a records this fact is 
reported to rhe Alternate Device Handler with error code 
1 se~. If i~ is the first card the current sequence 
number is then set to the one just read. 

,r-~*\ 

\_J The sequence number is then incremented Modulo ESLn and 

another word is obtained from the buffer via subroutine 
GETURD. If this is the first card of the record i this 
word should be the complemented record length. If non- 
negazive-i this fact is reported to the Alternate Device 
Handler with error code -3i0 • If it is negative! it is 
stored in a =>HYSTAB location. At this point FRDB7 the 
loop begins which gets the rest of the word in the record. 

The purpose of subroutine GETURD is to construct successive 
lb bit words from the IE bit columns stored in the buffer. 
To perform thisn l 4 columns are combined to produce three 
words. This is performed in three successive cycles as 
words are requested. Upon completion of eaci cyclei the 
next cycle is set for future entry. 

At procedure DONEt the interrupts are cleared and the status 
is saved. Subroutine -.MAKEd is then entered! the diagnostic 
clock is set negative! and routine FNR is re-entered to see 
if another request is waiting. 
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At routine ERRORn the error code and logical unit number 
are combined for output by the Alternate Device Handleri 
and bits 1«4 and IS of the request status PHYSTAB word are 
cleared. The controller is clearedi status is savedi and 
subroutine NAKE(2 is entered- Upon returni exit is made to 
the Alternate Device Handler- 

The purpose of subroutine MAKEU is to set the address of 
the next word of the buffer if a READ request does not get 
as many words as requested- Other completion housekeeping 
common to normal and abnormal termination is performed by 
this subroutine. 

At label FRDB7n if the remaining record length is zero-, 
exit is mde to label FRDBfi to see if the checksum is 
correct. If noti the core address is checked to see if the 
number of words requested has been read. If sot record 
length is incremented and checked for zero- If noti 
reading continues until the entire record has been readi 
reading continues until it hasi or the entire record read- 
At this timeT the complement of the checksum is read ^ 
and the sum checked for zero. If noti and the checksum 
override was not indicatedi error code four is reported 
to the Alternate Device Handler- If zero or checksum 
override was indicatedn exit is made to procedure DONE. 

At procedure FEEDCDn feed a cardi the current buffer address 
is set back to the beginning of the buffer- The offset 
indicator is then checked. If seti it is first reset to 
zero then the offset gate is set. The controller is 
clearedn and interrupts selected on datai alarrrH and end 
of operation. Exit is then made to the Dispatcher- 

At procedure FDBINt the core location is checked agairs t 
LAST+1. If equal n one column only is to be read and 
procedure ONCHR is entered. If not a word is obtained 
from the buffer via subroutine GETURD. It is stored into 
core and the core location is incremented. This is re- 
peated until the number of words requested has been read-. 
at which time procedure DONE is entered. At procedure 
ONECHRt the low order four bits is cleared from the word 
just ~ead and the word is stored into core. Procedure 
DONE is then entered. 
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At procedure ASCII-, read ASCII-, a column is picked up 
from the buffer converted to ASCII via subroutine CONVRTt 
shifted left fl bitsn and stored into the indicated core 
location- If this was a request for one character 
procedure DONE is entered. If not another column is 
picked upn convertedn and stored into the lower fl bits 
of the core location. The core location is then 
incremented. If the number of words requested has been 
read^ procedure DONE is entered- If noti the buffer 
address is incremented. If the buffer has been emptied 
and this is a formatted request n |brocedure DONE is 
entered. If this is an unformatted request procedure 
FEEDCD is entered. 
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51.0 172fl/ l 430 Reader/Punch Driver 

51. 1 Function 

To operate the 172A/M30 reader and punch. 

51. 2 Entry Points 

EX172A: Time expired error entry. 

; IN172fl: Initiator entry. 

: CN172A: Continuator or interrupt time entry. 

FF172A: Return to driver after sequence logging request. 

CH172fl: Completion address for sequence logging. 

51-3 Externals 

ALTDEV: Alternate Device Handler 

51. M Driver Description 

At the initiator entryi routine FNR is entered to see if a 
request is stacked. If not-, exit is made to the dispatcher. 
If ther is a requesti the checksum accumulator n packing cycle 
indicator! and tape motion control parameter are cleared. 
The current buffer address set to the beginning of the buffer. 
The request code is checked to see if this is a motion control 
request {for punching end of file cards}. If soi the three 
motion codes are saved and symbol MORMC is jumped to process 
them. If notn a check is made to see if an attempt is bsing 
made to switch from reading to punching or vice versa. If son 
the connect code is changed to reference the appropriate station 
and bit 15 of Equipment Table UordlM is checked to see if the 
attempted switch is to be reported as an error. If soi the 
Alternate Device Handler is entered with error code 11 set. 
If noti or the operator repeats the requestn the request code 
is checked to see whether this is a 
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READ or a WRITE request. If it is a WRITE request, symbol PUNCH 
is jumped to. If it is a READ request, symbol FEEDCD (feed a 
card) is jumped to. 

At the entry point EX1728, time expired, error code zero is set 
and the Alternate Device Handler is entered. 

At symbol EOFRD, the error bit is set in the request status 
physical equipment table word. The non-deferred offset bit is 
set to cause the end of file card just read to be offset. Exit 
is then made to symbol DONE. This will cause entry to be made 
to the completion routine with the error indicator set without 
first going to the Alternate Device Handler. 

Routine CONVRT is a subroutine to convert 12-bit Hollerith columns 
to ASCII. It does this by computing an index to a table of ASCII 
codes. Punches in columns 2 through 7 add $62 through $67 to the 
index respectively. Punches in columns 1 and 9 add $71 and $79 
respectively. A punch in column 8 adds $ 8 to the index. If the 
resultant sum exceeds $7F, an illegal Hollerith punch combination 
was present and error code 8 is passed to the Alternate Device 
Handler. If the index is below $80, the 1 ottom 4 bits are saved 
and the zone punches are then processed. If column 12 is punched, 
$70 is added to the index; if column 11 is punched, $60 is added, 
and if column zero is punched, $50 is added. If the resultant 
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sum exceeds $7F, more than one zone punch was present in the 
column and the punch combination is reported to be illegal as 
before. If not, the low order 6 bits of the index are used to 
access the ASCII character table and the conversion is complete. 

At entry point CN1728, the continuator or interrupt time entry, 
the base address of the physical equipment table, is placed in 
the index register and status is read. If alarm status is set, 
echo check status is checked. If not set, the error is reported 
via error code 2. If set, and this is a WRITE request, the offset 
bit is set. Regardless of whether it is a READ or WRITE,- the 
error is then reported via error code 7. If it is a data inter- 
rupt and a READ request is in progress, the column is input and 
stored into the buffer, and procedure EXIT is entered. If it is 
a WRITE request, a word is obtained from the buffer and is output 
to the punch station. Procedure EXIT is then entered. 

At procedure EXIT, the buffer address is incremented, the inter- 
rupt is cleared, and interrupt on data, FOP, and alarm is select- 
ed. Exit is then made to the dispatcher to await the next 
interrupt. 

If the interrupt was end of operation and a WRITE request is in 
progress, the request is checked to see if it is formatted. If 
so, procedure FORMOP is entered. If unformatted and the core 
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location is equal to LAST+1, procedure DONE is entered. If not, 
procedure PUNCH is entered. 

At procedure FORMOP, the request is checked to see if it is 
ASCII, If so, procedure DONE is entered. If not, the switch is 
checked to see if the checksum has been punched. If so, procedure 
DONE is entered. If not, procedure PUNCH is entered. 

If it is a formatted READ, procedure FRDBIN is entered. If un- 
formatted ASCII, procedure ASCII is entered. If unformatted 
binary, procedure RDB1N is entered. 

At procedure FRDBIN, a word is obtained from the buffer Via sub- 
routine GETWRD. If this is the first card of the request » the 
card is checked to see if it is an end of file. If so, procedure 
EOFRD is entered. If not, the card is checked to see if it con- 
tains a 7,9 punch in column one. If it does, procedure FRDB2 is 
entered. If not, and the request is ASCII, procedure ASCII is 
entered. If not, and it is not the first card, the 7,9 punch is 
missing and is reported via error code 12 to the Alternate Device 
Handler. If it is the first card, the mode is set to ASCII and 
procedure ASCII is entered. 

At procedure FRDB2, the word just obtainec is checked to see if 
checksum override is indicated. If so, tl • indicator is set. 
The sequence number is then checked. If incorrect, and this is 
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not the first card of a record, this fact is reported to the 
Alternate Device Handler with error code 9 set. If it is the 
first card, the message SQ,AA,BB is output on the list device 
where AA is the expected sequence number and BB is the one 
actually read. The current sequence number is then set to the 
one just read. 

The sequence number is then incremented modulo 256, and another 
word is obtained from the buffer via subroutine GETWRD. If this 
is the first card of the record, this word should be the com- 
plemented record length. If non-negative, this fact is reported 
f ^ to the Alternate Device Handler with error code 10. If it is 

negative, it is stored in a PHYSTAB location. At this point, 
FRDB7, the loop begins which gets the rest of the words in the 
record. 

The purpose of subroutine GETWRD is to construct successive 16 
bit words from the 12 bit columns stored in the buffer. To per- 
form this, 4 columns are combined to produce 3 words. This is 
performed in three successive cycles as words are requested. 
Upon completion of each cycle, the next cycle is set for future 
entry. 



.; 



At procedure DONE, the request is checked to see if it is a 
motion control request with write end of file codes remaining 
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to be processed. If so, procedure WEOF is entered. If not, 
interrupts are cleared and status is saved. If sequence logging 
is in effect, exit is made to the dispatcher to await completion. 
If not, subroutine MAKEQ is entered, diagnostic clock time is 
set negative, and routine FNR is re-entered to see if another 
request is waiting. 

At routine WEOF, the sequence base is reset and codes set up to 
punch one word unformatted with the word to be punched the column 
one configuration for an end of file card. The deferred offset 
switch is set and the punch request is begun. 

At routine ERROR, the error code and logical unit number are 
combined for output by the Alternate Device Handler, and bits 
14 and 15 of the request status PHYSTAB word are cleared. The 
controller is cleared, status is saved and subroutine MAKEQ is 
entered. Upon return, exit is made to the Alternate Device 
Handler. 

The purpose of subroutine MAKEQ is to set the address of the 
next word of the buffer if a READ request does not get as many 
words as requested. Other completion housekeeping common to 
normal and abnormal termination is performed by this subroutine. 

At label FRDB7, if the remaining record length is zero, exit is 
made to label FRDB8 to see if the checksum is correct. If not, 
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the core address, is checked to see if the number of words re- 
quested has been read. If so, the record length is incremented 
and checked for zero. If not, reading continues until the entire 
record has been read. If the number of words requested has not 
been read, reading continues until it has, or the entire record 
read. At this time, the complement of the checksum is read and 
the sum checked for zero. If not, and checksum override was not 
indicated, error code 4 is reported to the Alternate Device 
Handler. If zero or checksum override was indicated, exit is 
made to procedure DONE. 

At procedure FEEDCD, feed a card, the current buffer address is 
set back to the beginning of the buffer and the deferred offset 
indicator is checked. If not set, the current offset indicator 
is checked. If set, it is first reset, then the offset gate is 
set. Interrupts are cleared and interrupt on data, EOP, and 
alarm selecte$. If data status is up and this is a punch opera- 
tion, exit is made to the point in code to punch the card. This 
indicates that punching of a card just read is to be performed 
and no feed is necessary. If data status was not up, exit is 
made to the dispatcher. If deferred offset is set, it is reset 
and offset for the next card is set. The point in code above 
which checks for current offset is then entered. 
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At procedure RDBIN, the core location is checked against LAST+1. 
If equal, one column only is to be read and procedure ONCHR below 
is entered. If not, a word is obtained from the buffer via sub- 
routine GETWRD. It is stored into core and the core location is 
incremented, This is repeated until the number of words requested 
has been read, at which time procedure DONE is entered. At pro- 
cedure QNECHR, the low order 4 bits are cleared from the word 
just read and the word is stored into core. Procedure DONE is 
then entered. 

At procedure ASCII, read ASCII, a column is picked up from the 
buffer, converted to ASCII via subroutine CONVRT, shifted left 
8 bits, and stored into the indicated core location. If this 
was a request for one character, procedure DONE is entered. If 
not, another column is picked up, converted, and stored into the 
lower 8 bits of the core location. The core location is then 
incremented. If the number of words requested has been read, 
procedure DONE is entered. If not, the buffer address is incre- 
mented. If the buffer has been emptied and this is a formatted 
request, procedure DONE is entered. If this is an unformatted 
request, procedure FEEDCD is entered. 

The purpose of subroutine PCNVRT is to convert ASCII characters 
to 12 bit Hollerith columns. The ASCII character is checked to 
see if it is greater than or equal to $20 and less than $60. 
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If not, it is converted to zero (blank column). If it is in 
range, a direct table look-up is performed to get the 12 bit 
^ Hollerith equivalent. The column is then stored into the buffer, 
the buffer address is incremented, and return is made to the 
caller. 

The purpose of subroutine PUT is to separate the 16 bit binary 
input words into successive 12 bit columns and store them into 
the buffer for punching. At entry, the checksum is updated and 
the unpacking cycle is determined. At cycle 1, the high order 
12 bits of the input word are placed into bits 0-11 of buffer 
word one. The low order 4 bits are placed into bits 8-11 of 
buffer word two. At cycle 2, the high order 8 bits are put into 
bits 0-7 of buffer word two and the low order 8 bits into bits 
4-11 of buffer word three. At cycle 3» the high order 4 bits 
are placed into bits 0-3 of buffer word three and the low order 
12 bits into bits 0-11 of word four. The buffer address is then 
incremented by four. If the buffer is now full and the request 
has not been completed, the core address is incremented by one. 
Routine FEEDCD is then entered. 

At label PUNCH, cycle 1 is set in subroutine PUT and the request 
is checked to see if it is ASCII. If so, exit is made to label 
PUNCH6. If not, the request is checked to see if it is formatted. 
If So, exit is made to label PUNCH3. If not, the contents of the 
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indicated core location are picked up and subroutine PUT is 
called. Upon return, the core location is compared to last 
location plus one. If equal, switches are set to indicate the 
request is formatted, this is not the first word, and the check- 
sum is punched. This is to utilize common code in the formatted 
binary punch portion of the driver. If not equal, the core loca- 
tion is incremented and checked as before. If not equal to last 
location plus one, the sequence above is repeated. 

At label PUNCH6, the switch is checked to see if this is the 
first card of the request. If so, exit is made to label PNC12. 
If not and the request is formatted, exit is made to label PNC16. 
If not, the core location is checked to see if the request is 
complete. If so, exit is made to procedure DONE. If it was the 
first card, the switch is reset. The contents of the core loca- 
tion are then picked up and the two characters converted and 
stored into the buffer via subroutine PCNVRT. The core location 
is then checked to see if the request is complete. If not, the 
core location is incremented. If the buffer is full, exit is 
made to routine FEEDCD. If not, the core location is checked to 
see if the request is complete. If not, the sequence is repeated. 
If it is, zero is put in A and the cycle is repeated to fill the 
rest of the card with blanks. 
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At label PUNCH3, formatted binary punch requests are processed. 
The first word is constructed to contain the sequence number and 
a 7,9 punch. It is put into the buffer via subroutine PUT. The 
switch is then checked to see if this is the first card of the 
record. If so, the switch is reset and the complement of the 
record length is computed and placed in the buffer via subroutine 
PUT. A word is then picked up from core and put into the buffer 
via subroutine PUT. The core location is then incremented and 
checked to see if the requested number of words has been com- 
pleted. If not, the cycle is repeated. If so, the switch is 
checked to see if the checksum has been punched. If not, it is 
marked punched and put into the buffer by subroutine PUT. If the 
card is not yet filled, zeroes are issued to the buffer by PUT 
until it is filled. 
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55. D 17M0/5D1 Printer Driver 

52. 1 Function 

The 17W501 Line Printer Driver is a standard software driver 
which will operate under the 17DD MSOS 2.1 Operating System. 
This driver can be used by both the 17 "42 Line Printer and the 
5D1 Line Printer. This driver can be set up to reside on 
Mass Memory. 

52.2 Entry Points 

The following are the 17MD/5D1 Line Printer Driver entry 
points: 

IN5Q1 Initiator Entry Poi nt 

CN5D1 Continuator Entry Point & Interrupt Entry Point 

ER501 Error Routine Entry Point 

52.3 Externals 

The following are externals used by this driver: 

ALTDEV Alternate Device Handler Entry 
MAKEfl Common Driver Completion Routine used before 
entering C0MPR<3. 

52. M General Program Information 

52.M.1 Uord Nine - Various Aspects 

The following is a listing of which bits of word Tn of the 
Physical Device Tablen are used by the driver: 

BIT USE 

D 1 for a write operation 

1 1 if formatted 

2 1 if pending upspace 

3 ASCII-Binary bit-i not used by the Printer Driver 
M 1 if lower character 

5 1 if first entry into the driver -Cfor preceding 

carriage control} 
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52. M. 2 LOCATIONS in the COMMUNICATIONS REGION 

The following are communication region locations which are 
referenced. by this driver: 

LOCATION CONTENTS OF THE LOCATION 

*DT 5007F 

$0A 5D0FF 

$20 *C0DD 

$22 $0000 

*3D $2000 

*3fl SFFDF 

$M0 SDFFF 

$B5 Location of FNR 

SBb Address of FNR Subroutine 

SEA Location of the Dispatcher 

52.5 General Driver Description 

The 17M0/501 Line Printer driver uses two types of requests: 
the FURITE and WRITE. Binary-ASCII mode has no significance 
and will be ignored. For a more detailed description of the 
format of these requests i see the 17DD Operating System Refer- 
ence Manual. Two types of modes can be used by this driveri 
the FORTRAN and the NON-FORTRAN modes. Word 17 of the Physical 
Device Table for the printer contains the logical unit number 
of the FORTRAN line printer. Uhen the logical unit number 
specified by the request is the same as the number in word 
17 of the Physical Device Table for the printern the FORTRAN 
mode of operation is used. All other logical unit numbers 
will be handled inthe NON-FORTRAN mode. 

Formatted Write 

The Formatted Write is used in the FORTRAN and NON-FORTRAN 
modes as described below: 
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•CUFORTRAN Mode 

Uhen performing a Formatted Writen this mode will interpret 
the first character of the record for print control and 
therefore will not print the first character. The following 
chart lists the characters used for print control and the 
action which will be performed before printing - 



CHARACTER 



1 

+ 

All Others 
■C2>N0N-F0RTRAN Mode 



ACTION BEFORE PRINTING 

Double Line Space 
Top of Form 
No Upspace 
Upspace of 1 Line 



In this moden an upspace of 1 line will be performed before 
printing and the first character of the record will be 
printed- 

UNFORMATTED URITE 

In both the FORTRAN and the NON-FORTRAN modesn an Unformatted 
Urite causes no preceding upspace to be performed and print- 
ing to be done only if one of the following appears: $03t$0 1 It 
SODn or $1B followed by a $30. 

52- b Driver Description 



Initiator Entry 

At the Initiator entryi IN501-I I i 
of the device^s Physical Device Table, 
to check if there is a request stacked- 
stackedn exit is made to the Dispatcher 
available! location -CTEMP>n a temporary 
controller is also cleared- A check is 
if page control is wanted- If MAXLIN i 
line counter -CC0UNT} is clearedi if MAX 
that number is stored for future use- 



s set equal to the address 
FNR subroutine is entered 
If there are no requests 
If there is a request 
buffern is cleared^ the 
then made of MAXLIN to see 
s a negative numbern the 
LIN is a positive numbern 
Label AFALAR is then entered. 



Routine DONE: This routine is entered after successful completion 
of a request- The controller is cleared-! the Diagnostic Clock is 
set to a -1 and the hardware status is saved- After executing the 
external subroutines MAKE<2 and COMPRtfi the location of the Initiator 
Entry point +1 is entered to see if another request is waiting- 
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Error Entry 

At the Error routine entry! ERSDli I is set £6 equal *<he add- 
ress of the device-'s physical device table- The error code is set 
to zero and then routine ERROR is entered- 

Routine ERROR: The error indicator -CERRTAB} is seti the status is 
checked and stored and the controller is cleared- The error code 
is picked upi the Diagnostic Clock is set to a -1 and then the error 
code! in Qi is passed to the Alternate Device Handler- 

Continuator Entry 

At the Continuator entryi CN5D1V I is set to equal the address 
of the device •'s physical device table and the status is checked- 
If the entry was caused by an Alarm interrupt n the error code is set 
to a E and an exit is made to routine ERROR. If entry was not caused 
by an Alarm! label AFALAR is entered- 

Routine AFALAR: Upon entering this routine! a check is made to see 
if the request is formatted- If it is not formatted! jump to the 
NOFORH routine because an unformatted write causes no preceding up- 
space to be given- If it is formatted-! check if this is the first 
entry into the Continuator. This check is to determine if carriage 
control functions are to be issued- If the request is formatted! 
but not the first entry into the Continuator! there is to be no 
preceding carriage control operation before printing! therefore jump 
to the NOFORN routine to continue processing the request- 

If the request is formatted and the first entry into the Continuatorn 
status is checked to see if the printer is already engaged in a 
carriage control operation- If the printer is busy! the temporary 
buffer is clearedn previous interrupts are cleared and Interrupt on 
End of Operation and Alarm is set! the hardware status is saved! the 
Diagnostic Clock is set to a li and an exit to the Dispatcher is then 
made. If the printer is not busy! a check is then made to see which 
mode is being used! the FORTRAN or NON-FORTRAN mode. If the FORTRAN 
mode is being used! enter routine FTNMOD't if the NON-FORTRAN mode is 
being used! enter routine NONFTN. 

Routine FTNNOD: In order to have reached this routine! the follow- 
ing must be true: -ci> the request must be formatted! -C2> this must 
be the first entry into the Continuator by the request! -C3> the 
request must be used in the FORTRAN mode. This routine picks up a 
word and then stores it in -CODDli the present core location is in- 
creased by 1 for future use- A check is then made to see what the 
first character is in order to decipher which carriage control func- 
tion should be performed- 
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If the first character is a +n no preceding upspace is to be perform- 
ed! therefore! enter the NOFORN routine in order to continue process- 
ing- 

If the first character is a It a page eject is to be executed- The 

line counter -CC0UNT>i used with page format control i is cleared and 

a page eject function is performed- The NOFORfl routine is then enter- 
ed in order to continue processing. 

If the first character is a zeroi double spacing occurs- The line 
counter -CCOUNTJn used with page format control -i is increased by 1- 
The MAX routine is then entered- In this routine the line counter 
-CCOUNTJ will be increased by 1 again} so effectively the line counter 
•CCOUNTJ has been increased by a 2- Upon returning from the MAX routine! 
the double space function is then processed- The NOFORM routine will 
then continue processing the request- 

If the first character is anything other than one of the abovei a 
single space function will occur- The N0F0RH routine will then conti- 
nue processing the request- 
Routine NONFTN: In order to have reached this routine! the following 
^ ^ must be true: -Cl> the request must be formatted! -CE> this must be the 
first entry into the Continuator by the request! -C3* the request must 
be used in the NON-FORTRAN mode- The storage location -C0D1»! used for 
temporarily storing odd characters! is cleared and an upspace of 1 line 
is performed- Routine MAX is then entered to check the line counter 
for page format control- Upon returning from the MAX routine! the 
NOFORH routine is entered so that processing will be able to continue- 

Routine N0F0RH : Upon entering this routine! a check is made to see 
if there is a non-print function waiting to be completed- If soi 
entry is made to routine ILEGAL- If not! check if an upspace function 
is to be executed- If the upspace switch is set! clear the switch! 
execute an upspace function and enter routine MAX to check the line 
counter -CCOUNT}. Upon returning from routine MAX n the NOFORM routine 
is entered! with the upspace switch -CSUITCH> now set to zeroi to con- 
tinue processing the request- If the upspace switch is not set! equal 
to zero! the NOUPSP routine is entered to examine each remaining word 
of the print line- 

Routine NOUPSP: In order to have reached this routinei carriage con- 
trol has been taken care of- From this point on! each remaining word 
of the print line is examined to see if it contains characters outside 
the printable range of $SQ-^SF. Upon entering this routine! a check is 
made to see if all the characters have been checked and transferred. 
If the transfer has been completed! routine FINISH is entered- If the 
transfer has not been completed! the next word is picked up. At this 
word a check is made for odd characters. If there are odd characters! 
store the word in -COD])} to be worked with later and then combine the 
upper character of the word just picked up and the lower character of 
the word previously stored in -CODDD-! which is now in the Q register. 
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Routine NOUPSP: -Ccont-> The LEGAL routine is then entered to check 
this newly formed word- If there are no odd characters! routine 
LEGAL is entered directly- 
Routine LEGAL! At this point! a check is made to see if the charac- 
ters are legal- If either of the characters are illegal i enter the 
ILEGAL routinei if both characters are legal ! output the word to the 
buffer! increase the character count and the core location. The 
NOUPSP routine is then entered to check if the transfer is complete- 

Routine MAX: This routine checks if page format is wanted- The 
value in -CMAXLIN} will be negative if page format control is not 
wanteds the value in -CMAXLIN} will be positive if page format control 
is wanted. If page format is not wanteds control will return to the 
section in the program it came from +!-,.,. If format is selected! in- 
crease the line counter -[COUNT* by 1 and check ff the number of lines 
printed is equal to or greater than the stated number of lines in 
■CMAXLIN}. If equal to or greater a page eject function is perform- 
ed and the line counter is cleared- If less than the stated number 
in -CMAXLIN}! output the paper motion function and continue process- 
ing. 

Routine FINISH: To have reached this routine! all the characters 
have been checked and transferred to the buffer- In order to com- 
plete this requesti a check must be made to see if the request is 
formatted or unformatted- If the request is unformatted! enter the 
(3ABUG routine- If the request is formatted! check if there are any 
odd characters- If any odd characters are present! -CODD} will not 
equal zero! clear storage location -C0DD3-! send the odd character 
and a space to the buffer! and return to the LEGAL routine to check 
if this last character is legal- If there are no odd characters! 
•CODD} will equal zeroi check if the printer is busy- If it is busy! 
clear {TEMP*! clear the previous interrupts! set interrupt on End 
of Operation and Alarm! save the hardware status! set the Diagnostic 
Clock to a 1 and jump to the Dispatcher- If the printer is not busy! 
print the buffer! mark the request unformatted and enter the CLEAR 
routine- 
Routine CLEAR! In this routine! the character counter and the temp- 
orary storage area are cleared- Previous interrupts are cleared! 
interrupts on Data and Alarm are selected! the hardware status is 
saved! the Diagnostic Clock is set to a 1 and then a jump is made 
to the Dispatcher- 
Routine (2ABUG: In order to have reached this routine! the request 
must have been unformatted and all of the characters have been exa- 
mined and transferred to the buffer- A check is made to see if there 
are any odd characters- If there are no odd characters! exit is 
made to routine DONE- If there is an odd character! check what the 
character is- If it is not one of the following! exit to routine 
DONE. 
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Routine (2ABUG : -Ccont-} 



$03 
$04 
$0B 
$0C 
$0D 



End of Text 
End of Transmission 
Vertical Tab 
Form Feed 
Carriage Return 



If it is one of the above! they are considered legal and will be pro- 
cessed. The odd storage area -C0DD} is cleared and routine ILEGAL is 
entered to process the above codes - 

Routine ILEGAL: This routine checks the upper character for an ille- 
gal character- If the upper character is legal n a switch is set and 
then the lower character is checked- If one of the following illegal 
characters! below the printable range of $20-$5F! is detected! enter 
the routine specified on the right- All other characters below the 
printable range will enter the IGNORE, routine- A synopsis of the 
routines! listed belown will follow the chart- 
Character Routine 



$03 


EOT 


SO 1 ! 


EOT 


$0=1 


TAB 


$0B 


VTAB 


$0C 


FORMFD 


SOD 


CARRET 


$1B 


ESCAPE 



Routine EOT: This routine will process the $03 and $04 codes- Upon 
entering this routine! the word! containing the illegal code! $03 or 
$04t will be saved in the temporary storage location -CTEMP}- A check 



If it i^ busy! previous inter- 
of Operation and Alarm are se- 
and the Diagnostic Clock is set 

If the printer is not busy! 
paper wil 1 be upspaced one linen 



is made to see if the printer is busy 

rupts are cleared- Interrupts on End 

lectedn the hardware status is saved! 

to 1- Exit is made to the Dispatcher. 

the upspace switch is set so that the 

the next available core location is set upi and the odd character 

storage area -£0DD> is cleared- If the $03 or $04 is in the upper 

character! enter the PRT0UT routine and do not increase the character 

the core location} if the $03 or $04 is in the lower charac- 
a space in the lower character position- The legal charac- 
upper character position! and the space are then sent to the 

buffer. The character counter and core location are both increased- 

Enter the PRT0UT routine! so that the buffer may be printed- 



counter or 
tern place 
ter in the 



Routine PRT0UT: In order to have reached this print routine! the 
request must be unformatted- This routine prints the buffer and 
exits to the CLEAR routine- 
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Routine TAB: The routine computes the number of spaces to the next 
tabstop and then sends the computed number of spaces to the buffer- 
The number of spaces between each tabstop is set at assembly time 
by an E(3U TABSTOP-CXJ-! X = number of spaces. Upon entering this 
routinei the word! containing the $0Tn is stored in -CTEMP}- A check 
is made to see if the £0^ is in the upper character position- If it 
ist enter the MORSPC routine- If the ^DT is in the lower character 
place a space in the lower character position so that the upper 
character and a space are placed in the A register- Enter the ATOBUF 
routine- 
Routine MORSPC: This routine increases the space counter- A check 
is made to see if the space counter equals zero -Cit will equal zero 
if the next tabstop has been reached*. If the next tabstop has not 
been reached! -CLC does not equal zero*! load the A register with 
£2Q2D -Cspacen space} and then enter routine ATOBUF. If the next tab- 
stop has been reached! a check is made to see if the 5CH is the upper 
character- If it is the upper character n place a space before the 
lower character and transfer this newly formed word to the (2 register 
and enter routine LEGAL- If the £0^ is the lower character! a check 
must also be made to see if any odd characters are present- If there 
are odd characters present -C0DD does not equal zero*! pick up the 
character-Cs* in -C0DD* by placing them in the (3 register and then 
clear the storage location -CODD*. A space is placed before the odd 
character and transferred to the (3 register before entering the LEGAL 
routine- If there are no odd characters present -C0DD = 0>! place a 
space in -CODDJ-n increase the core location by 1 and enter the NOUPSP 
routine- 

Routi le ATOBUF: This routine sends the word in the A register to the 
buffe^. The space count is increased by 1- A check is made to see 
if th? space counter is equal to zeroi if equal to zeron the next 
tabstop has been reached. If equal to zeroi a check is made to see 
if th^ upper character is the last space before the next tabstop. If 
it is the upper character! enter the IGNORE routine to blot out the 
space in the lower character- If the last space is in the lower 
character! increase the core location and then enter the NOUPSP rou- 
tine. If the next tabstop has not been reached {space counter will 
not equal zero*! enter MORSPC routine. 

Routine VTAB: This routine processes the $0B codei it uses a func- 
tion :o select format tape level 2. Upon entering this routine! the 
wordi containing the $0B code! is stored in -CTEMP* for future use. 
The printer is checked to see if it is busy. If it is! previous 
interrupts are cleared! Interrupts on End of Operation and Alarm are 
selected! the hardware status is saved and the Diagnostic Clock is 
set to 1- Exit to the Dispatcher is then made- If the printer is 
not busy! activate format channel for tape level 2 and then enter the 
IGNORE routine. 
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Routine FORMFD: This routine processes the $0C codei it issues a 
page eject function- Upon entering this routine! the worcU contain- 
ing the $0C code! is stored in -CTEMP}. A check is made to see if the 
printer is busy- If it isn previous interrupts are cleared! inter- 
rupts on End of Operation and Alarm are selected! the hardware status 
is saved and Diagnostic Clock is set to li exit is made to the Dis- 
patcher- If the printer is not busy! the line counter! used with 
page format control n is cleared and a page eject function is executed. 

Routine CARRET: This routine processes the $0D codei it prints the 
buffer. Upon entering this routine! the word! containing the $0D 
codei is saved in -CTEMP}. A check is made to see if the printer is 
busy- If it is busy! previous interrupts are cleared! interrupts on 
End of Operation and Alarm are selected! the hardware status is saved 
and the Diagnostic Clock is set to li an exit is then made to the 
Dispatcher. If the printer is not busy! set the upspace switch! and 
check if the $0D is in the lower character. If it is in the lower 
character! combine the upper character and a space to finish packing 
the buffer. The character counter and the core location are both 
increased. The buffer is printed and then the CLEAR routine is 
entered- If the $0D is in the upper character! the buffer is print- 
ed and routine CLEAR is entered- 

Routine ESCAPE! This routine processes the $1B code! by examining 
the character following the escape character and by issuing the appro- 
priate function. Upon entering this routine! the word! containing 
the $1B code! is stored in -CTEHP}. A status check is made to see if 
the printer is busy. If it is busy! previous interrupts are cleared! 
interrupts on End of Operation and Alarm are selected! the hardware 
status is saved! the Diagnostic Clock is set to 1 and an exit to the 
Dispatcher is made. If the printer is not busy! a check is made to 
see if the upper character is the escape character -C$1B}. If it is 
the upper character! pick up the word stored in -CTENP} and enter the 
GOTES routine. If the $1B is the lower character! pick up the upper 
character of the next word to determine what the function character 
will be- Combine the $1B and this upper character and enter routine 
GOTES. 

Routine GOTES: This routine checks which director function should be 
issued. The first check is for the print function -C$30>i if equal to 
$30 enter the Print routine! so that the buffer may be printed. If 
found to be less than $30! increase the core location and enter the 
NOUPSP routine because any character! when accompanied with the $1B! 
below $30 is not considered to be a director function. If the func- 
tion is greater than $30! but less than $ L l0i this routine will keep 
shifting the bit 1 place at a time! to determine which function 
should be issued. The following is a chart of the possible 17 L I0/SD1 
Line Printer functions! all other codes will be ignored: 
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Routine GOTES: -Ccont-} 

ESCAPE CODE 

S1B30 

S1B31 

S1B32 

S1B33 

S1B3 1 J-S1B3T 

S1B3E 



17M0 FUNCTION 
Print 

Single Space 
Double Space 
Advance to Level 1 
Advance to Level 2-7 
Advance to Level 15 



Once the function is determined! the director function is executed. 
A check is then made to see if the SIB is the upper character- If 
it isi increase the core location and enter N0UPSP routine- If it 
is in the lower character! pick up last legal character and then 
increase the core location and enter the N0UPSP routine. 

Routine PRINT: The word in {TEMP* is picked up. A check is made to 
see if the upper character is the SIB. If it is the upper character! 
increase the core location and enter the PRT0UT routine- If it is 
the lower character! check if there are any odd characters- If there 
is! clear -C0DD3-! send the upper character and a space to the buffern 
increase the character counter and the current address and then enter 
the PRT0UT routine- If there are no odd characters! store the lower 
character -Cunused> in -C0DD3-! send the upper character and a space to 
the buffer! increase the core location and increase the character 
counter and then enter the PRT0UT routine - 

Routine ILEGAL also checks the range of characters to see if they 
can be printed. If the character found is less than 520 and not 
one of the following! enter routine IGNORE. 

S03 
SOM 
SOT 
SOB 
S0C 
SOD 
SIB 

If the character is greater than S20i check if the character is be- 
tween the range of SbO and S7F. If the character is found to be in 
the range of SbO and S7F! enter routine TRNSLT so that the lower 
case character will be converted to the upper case character in the 
printable range. 

If the character is found to be greater than S7F! enter routine 
IGNORE. 



AA 3777 



PRINTED IN USA 



c 



o 



nnnn/nnnn CONTROL DATA CORPORATION 

3000/1700 Systems & Development DIVISION MAR 5 1971 

DOCUMENT CLASS I 1^ .__ PAGE NO 5E.jJj 

PRODUCT NAME 1700 Operating System 

PRODUCT MODEL NO._ E00b*3-IL MACHINE SERIES— JiZ£5 



Routine TRNSLT: This routine processes the character found in the 
range of $laO-£7F by translating the character in its lower case 
■C$bO-!?7F} to its upper case -C^MD-$SF>- A check is made to see if 
the illegal character is in the upper character of the word- If the 
illegal character is the upper character! subtract twenty from its 
ASCII value by masking with SDFFF. Enter routine LEGAL to continue 
processing- If the illegal character is the lower character i sub- 
tract twenty from its ASCII value by masking with £FFDF and then 
enter routine LEGAL- 

Routine IGNORE: This routine prohibits the printing of the illegal 
character- Upon entering this routine! a check is made to see if 
the illegal character is the upper character of the word- If it is 
the upper character of the word! enter routine YSILGL- If it is the 
lower character! shift the illegal character to the upper character 
position and then enter routine YSILGL- 

Routine YSILGL: This routine checks if there is an odd character. 
If there is an odd character! combine the odd character with the 
saved! legal character! clear the odd character storage location 
-C0DD* and jump to routine LEGAL to check the legality of the newly 
formed word- If there are no odd characters! store the saved legal 
character in -C0DD>! increase the core location and then enter routine 
NOUPSP. 
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53. D 1731/bDl Unbuffered flagnetic Tape Driver 

S3-1 Introduction 

This tape driver is composed of six modules which may be com- 
bined in various ways to make up a tape driver. The modules are: 

TAPEDR - The traffic director and tape motion control 

processor. 
T14 - The tape motion control request processor. 

RUBA - Processes the READ and URITE requests in either 
binary or ASCII mode. 

FRUA - Processes the FREAD and FURITE requests in 
ASCII mode. 

FRUB - Processes the FREAD and FURITE requests in 
binary mode. 

RECOVR - Error recovery routine. 

TAPEDR must always be included as all requests pass through it. 
If density changes and/or tape motion control is desired T14 
must also be included. If T14 is not includedn a user call 
will result in an illegal request diagnostic and job termination. 
In order to perform a read or write operation on magnetic 
tape any combination of RUBAt FRUA and FRUB routines must be 
included in the tape driver. A request fur one of these routines 
which is not in resident will result in an illegal request 
diagnostic and job termination. RECOVR may be included in the 
driver or replaced or omitted at the users option. If an error 
is detected and this routine is not in resident the operator 
will be notified of an unrecoverable error {Alternate Device 
Handler} and given an opportunity to take action. 
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S3-E Physical Device Table 

Each tape unit in the system will have a PHYSTB -Cphysical 
equipment table} entry as follows: 
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WORD 17 contains the location of WORD D of the PHYSTB entry of 
another tape unit connected to the same controller. Through 
this wordN all the tape units connected to a controller 
are threaded together in a circular manner- 

If only one tape unit is connected to a controller! word IS 
must contain the address of its own PHYSTB entry. 

53-3 Assumptions 

1. The driver must not be interrupted while performing a 
data transfer. 

S. The driver can service on only one tape at a time. 

3. All callers must be at lower priority levels. 

53. H TAPEDR Description 

This module processes all the requests to the tape driver 
and sends them to the proper routineo It also contains 
the tape motion control request routine and several subroutines 
used by all portions of the driver.. 
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S3- "4.1 INTERNAL DESCRIPTION 



On entry, the driver checks to see if another request is active. 
If another request is active, exit is made to the dispatcher as the 
driver will pick up the current request later on. If no request is 
in progress, the driver waits till the controller becomes inactive 
and then proceeds with request processing. 

Two types of requests are processed, tape motion and data transfer. 
Suitable table setups are made for each type. Uhen table 
setups are complete! the unit is connected and mode and 
density selected- The requests are then passed to a 
corresponding processing routine is not present ■% job 
termination results - 



53-M.S USE OF INTERRUPTS 



Interrupts are used to signal completion of the following tape 
motion operations: 

1. Backspace record 

2 . Rewind 

3. Mark end of file 

While the above operations are in progress the driver has relin- 
quished control. All other operations require that the driver 
retain control until they are completed. A partial exception is 
the unload request. The driver initiates this request and exits. 
No completion is signalled by the controller. 



S3- 1 *. 3 TPMCTL 



At TPMCTL a parameter is extracted from WORD 11 and placed in the Q 
register to use as an ordinal to the request table. The remaining 
parameters are restored temporarily in WORD 11. Using the ordinal 
in Q the proper routine address is picked up and placed in Q and 
a jump is made to the effective address formed by the value in Q 
plus one. The table format is: 
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TPMTBL + 
+ 1 
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+ 4 
■+ 5 



J M 


DONOTH 


tftfp 


BSPR 


j 3»p 


MARKEF 


3 n p 


REWIND 


jrip 


UNLOAD 


J'rtp 


SKIPF 



At DONOTH the tape motion indicator is cleared and exit is made to 
TP6. 



At BSPR the control function to select a backspace and interrupt is 
placed in the accumulator and control is given to TMP1A. 

At MARKEF the control function to select a write or file mark and 
interrupt is placed in the accumulator and control is given to TPM1. 

At REWIND the control function to select a rewind and interrupt is 
placed in the accumulator and control is given to TPM1A. 

At UNLOAD, WORD 11 for this logical unit is set to zero to force 
DONOTH to be processed as the next parameter. This will terminate 
this request as the tape unit will require manual intervention by the 
operator before it may again be addressed. The control function 
to select a rewind and unload is placed in the accumulator and 
control is given to TPM1. 

At SKIPF a non stop read is performed and at each end of operation 
status is checked for end of file and end of tape. When either is 
detected control is given back to TPMCTL to process the next para- 
meter. 

At TPM1A status is checked to see if tape is positioned at load point. 
If it is, control is given back to TPMCTL to process the next para- 
meter thus treating the current parameter as a no operation. If the 
unit is not at load point, control is given to TPM1. 

At TPM1 the function in the accumulator is issued to the tape unit 
and if interrupt was not selected, control is given to TPM2. If 
interrupt was selected, this unit is set to busy (bit 15=1), the 
"I" register (the logical unit number) is saved in SAVEI and exit 
is made to the dispatcher. 

At TPM2 the subroutine CKEOP is entered to check for end of opera- 
tion. If no end of operation, the unit is checked for ready. If 
ready control is returned to TPM2. If not ready it is assumed that 
the last operation performed was an unload-i and the CKEOP 
routine is re-entered to EOP to put status 
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into WORD^ 12 for this logical unit. EOP is also used when an end 
of operation was encountered and after status has been placed in 
WORD 12 '''control is returned to the end of operation line in the call 
to CKEOP where control is given back to TPMCTL to process the next 
parameter. 

At end of operation interrupt time the external interrupt processor 
(EPROC) gets the interrupt time address and enters TAPEC where the 
logical unit from SAVEI is restored in the "I" register, this unit 
is set not busy, a function code to clear the interrupt is placed 
in the accumulator and control is given to TPMB- 

CYCLE is entered at ( the completion of each request. It examines 
(via thread in WORD 1,7) all the tapes connected to the controller. 
If it finds one that needs service, the PHYSTD location for that 
tape unit is put in "I" and a request processed for it. In this 
way, the tapes are activated in a comutative manner until all requests 
to all units have been processed. When this occurs, exit will be 
made to the dispatcher. 



53.5 T14 - TAPE MOTION CONTROL REQUEST PROCESSOR 

o 



This request processor adjusts return address for direct calls. 

7 Arc '*< 

When the above is completed, TAPE exits to entry point ^SAVLU^ in 
the Read/Write Request Processor where threading 
and driver scheduling take place. All legality checking for un- 
protected requests is done in the Protect Processor 
It is assumed that protected requests do not require legality check- 
ing . 

53. L RWBA - READ AND WRITE IN BINARY OR ASCII MODE 

Upon entry to RWBA the contents of WORD? 'for this logical unit 
are stored in local storage EQTAB with bit 1-0 set to zero. The 
first word address is stored in CORE and the last word address + 1 
(CORE plus the requested number of words) is stored in lasr. If 
this is a write request control is given to WBA1. If not ' he function 
to set read motion is issued. Each character is then input to the 
A register and packed three to a word drop the two low order bits 
of the last character. Partial words are saved in TEMP until three 
characters have been assembled at which time TEMP is st° re d in the 
address specified by the contents of CORE. CORE is then increased 
by one and control is returned to input three more characters until 
CORE and LAST become equal at which time a tight read loop is 
entered until there are no more characters to read. No more char- 
acters are transferred to the requestor. At end of operation if 
three characters have not been assembled into TEMP they arv: left 
justified and stored in the address specified in CORE with the lower 
order unfilled bits set to zero unless CORE and LAST are equal. 
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If CORE and LAST are equal nothing is transferred to the requestor. 
In either case the Q register is set to zero for the error recovery 
code and at RBA8 parity and lost data errors are checked for. If 
an error exists and the external address of the error recovery 
package (REGOVR) is equal to 7FFF- 6 the routine is not resident, 
CORE is loaded into the A register and LAST into Q and control is 
given to URECOV. If the external is patched RECOVR is entered. If 
RECOVR returns to this point CORE and LAST are put in A and Q and 
control is given to URECOV. 

At WBA1 the unit is checked to see if it is write enabled. If it is 
not, CORE and LAST are placed in A and Q and control is given to 
URECOV. If it is write enabled write motion is initiated and the 
word at the location specified in CORE is placed in the A register. 
Three shift left 6 and output instructions are performed on the A 
register. CORE is incremented by one and control is given back to 
WBA to get the next word until CORE and LAST are equal. When they 
are equal the subroutine CKEOP is entered and looped on until end 
of operation comes in. When this happens the error recovery code 
1 is placed in Q and control is given to RBA8 to check parity and 
lost data. 

ASCII/BCD CONVERSION TABLE 
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FRWA - FORMAT READ AND WRITE IN ASCII MODE 

3 
At FRWA the contents of W0RD..7 r for this logical unit are stored in 

the local storage EQTAB with bits 1-0 set to zero. The first word 

address -1 from the request is placed in CORE and the LAST word 

address (CORE plus the number of words requested) in LAST. If this 

is a write request, control is given to FRWA1. If not, read motion 

is initiated at FRDA6. At: FRDA the first character is inputted to 

A and placed in Q to use is an ordinal to the conversion tables. 

The upper 8 bits of the table entry at TABLE + the value in Q is 

placed in the lower 8 bits of TEMP and CORE is incremented by one. 

The difference between CORE and LAST is stored in ENDCK and the second 

character is inputted and converted in the same fashion as the first. 

The character in TEMP and this character are packed into one word 

and stored in the location specified by the contents of CORE. If 

ENDCK is not zero control is given back to FRDA. If it is zero, 

a tight input loop is entered to the rest of the record but no more 

words are transferred to the requestor. In any case, when reading 

finally terminates on end of operation if two characters have not 

been read but at least one has the character is left justified and 

the lower set to FF 1f . CORE and LAST are both incremented by one, 

Q is set to 2 for trie error recovery code and at FRDA5 an end of file 

is checked for. If .an end of file has been read control is given to 

FRDA7 where CORE is placed in A, LAST is placed in Q and exit is 

made to N0RMRT. If no ejnd of file, parity and lost data are checked. 

If no parity or lost data errors exist control is given to FRDA7. If 

an error exists to /the external for RECOVR is checked for 7FFF 

(unpatched). If uiipatched control is given to URE. If patched the 

routine exits to RSCOVRJ If RECOVR returns control to URE, CORE 

and IAST are place^ in L and the routine exits to URECOV. 
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At FWRA1 the unit is checked for a write enable ring. If it is not 
write enabled control is given to URE. If it is, write motion is 
initiated and CORE and LAST are both incremented by one. At FWRA 
the first character or upper half of the word at the location speci- 
fied by the contents of CORE is placed in Q with the two highest 
order bits set to zero and it is used as an ordinal to the conver- 
sion table the same as in a read operation. On a write, however, the 
lower half of the table entry contains the desired conversion 
character. This character is then outputted and the next character 
is picked up and processed in the same manner. Whien two characters 
have been output CORE is incremented by one and control is given 
back to FWRA for the next character until CORE and LAST become equal. 
At that time the subroutine CKEOP is looped on until end of opera- 
tion. At end of operation the error recovery code of 3 is placed 
in Q and control is given to FRDA5 to check parity, etc. 

S3, fl FRWB - FORMAT READ AND WRITE IN BINARY MODE 

Upon entry to FRWB the contents of WORD 8 for this logical unit are 
stored in local storage EQTAB with bits 1-0 set to zero. The first 
word address is stored in CORE and the last word address + 1 
(CORE + number of words requested) is stored in LAST. If this is 
a write request control is given to FWRB1. If it is not read motion 
is initiated at FRDB1. At FRDB is a chain of eight input sequences. 

Every eight characters read will form (3) 1700 words. As sixteen 
bits are read they are stored, CORE is incremented by one and checked 
for equality with LAST. When they are equal control is given to 
SPIN where a tight read loop reads to the end of operation without 
transferring any characters to the requestor. When end of operation 
occurs and less than sixteen bits has been read to fill the current 
word, the data is left justified with the unfilled lower order bits 
set to zero and stored in the address specified by CORE. At the 
end of operation the error recovery code 4 is placed in Q and if no 
file mark has been read parity and lost data are checked at PARCK. 
If a file mark was read or no error was detected control is given 
to FWB7 where CORE is placed in A and LAST in Q and the routine 
exits to NORMRT. If an error exists the external reference to REC0VR 
is checked for 7FFF , (unpathced). If it is unpatched control is 
given to FWB3. If it is patched the routine exits to the error 
recovery package REC0VR. If REC0VR returns control to this point 
control is at FWB3 and CORE and LAST are placed in A and Q and the 
routine exits to UREC0V. 

At FWRB1 the tape is checked for a write enable ring. If none 
exists control is given to FWB3. If a ring is present write motion 
is initiated and the reverse unpacking of the data at the address 
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specified by the contents of CORE is performed with a series of eight 
output sequences. Each six bits unpacked starting from bit 15 of 
the first word and working toward bit of the last word is outputted 
as a character on tape. If the output sequence ends (i.e., CORE 
equals LAST) and a full six bits is not left the lower order bit 
of the character are set to zero. In any event when CORE is equal 
to LAST the record has been transmitted and the subroutine CKEOP 
is looped on until end of operation. At end of operation, the 
error recovery code 5 is placed in Q and control is given to 
PARCK. 

53. ^ RECOVR - THE ERROR RECOVERY PACKAGE 

This routine may be replaced at the users option. Its entry point 
is labeled RECOVR. It is return jumped to with an error recovery 
code in Q (range is 0-5 with even numbers representing reads and 
odd numbers representing writes). 

Upon entry to RECOVR the error recovery code is divided by 2 and 
saved in RCODE. If it was odd the routine goes to WRETRY. If it 
was even control is given to ODD. At ODD if RETRY is not equal 
to three it is incremented by one at PI, the tape unit is backspaced 
one record and control is given to XIT. If it is equal to three, 
control is given to CLEAN where RETRY2 is checked. If RETRY2 
is equal to four the routine exits back to the calling routine through 
its entry point. If RETRY2 is not equal to four control is given to 
CLEAN2. At CLEAN2, RETRY2 is incremented by one, ENDOP is set to 
zero and up to three backspaces are issued. If load point is sensed 
after any of the backspaces, no more backspaces are done. A count 
of the number of extra backspaces actually executed is kept in 
ENDOP. A non stop read is done and continues until the number of 
end operations specified in ENDOP have been read. At this point the 
error record is the next record to be read and control is given to 
XIT. 

At XIT the routine determines which routine to re-enter by using the 
value in RCODE as an ordinal to a table of addresses. The format 
of the table is: 

TBL + 
+ 1 
+ 2 

At WRETRY if RETRY is not equal to two, control is given to Rl. If 
it is equal to two control is given to Wl. At Wl if RETRY2 is equal 
to two control is given to W6. If it is less than two control is 
given to W3 and if it is greater than two control is returned to the 
calling routine through the entry point of RECOVR. 
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At W3 the tape unit is backspaced and at least half of the record is 
erased. The number of erases to perform is calculated by the formula 

— ~- + 1 where N is the number of computer words to be written, 

C is the number of characters per computer word and D is the density 
the data is to be recorded in. The erases are performed by writing 
a file mark and backspacing. When the computed number of erases 
have been performed control is given to W6. 

At W6 zero is stored in RETRY and control is given to XIT. 
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53. ID INTRODUCTION 



This tape driver is composed of six modules which may be 
combined in various ways to make up a tape driver- The 
modules are: 

TAPEDR - The traffic director and tape motion control 
processor 



TIM 
RUBA 

FRUA 

FRUB 



- The tape motion control request processor. 

- Processes the READ and WRITE requests in either 
binary or ASCII mode. 

- Processes the FREAD and FURITE requests in ASCII 
.mode. 

- Processes the FREAD and FURITE requests in binary 
mode . 



RECOVR - Error recovery routine 

TAPEDR must always be included as all requests pass through 
it. If density changes and/or tape motion control is desired 
T14 must also be included. If TIM is not includedn a user call 
will result in an illegal request diagnostic and job termin- 
ation. In order to perform a read or write operation on 
magnetic tape any combination of RUBAn FRUA and FRUB routines 
must be included in the tape driver. A request for one of 
these routines which is not in resident will result in an 
illegal request diagnostic and job termination. RECOVR may 
be included in the driver or replaced or omitted at the user^s 
option. If an error is detected and this routine is not in 
residenti the operator will be notified of an unrecoverable 
error {Alternate Device Handler} and given an opportunity 
to take action. 
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S3. IE 



Physical Device Tables 

Each tape unit in the system will have a PHYSTB {physical 
equipment table} entry as follows: 
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WORD 17 contains the location of WORD 1 of the PHYSTB 
entry of another unit connected to the same buffered data 
channel- ' Through this wordi all the tape units and other 
perfericals connected to a Buffered Data channel are 
threaded together in a circular manner - 

If only one tape unit is connected to a controller word 
17 must contain the address of its own PHYSTB entry - 

WORD Ifl is a temporary storage cell used by the drive 
to store the tape motion control function or an error 
code flag. 

S3 -13 Assumptions 

1- The Buffered Tape Driver may be interrupted to process 
higher priority drivers and processes. 

2. Only one device on a buffered data channel may be 
serviced at a time. 

3. All callers must berat lower priority levels. 

53. m TAPDRB Description 

This module processes all the requests to the tape driver 
and sends them to the proper routine. It also contains 
the tape motion control request routine and several subrou- 
tines used by all portions of the driver. 
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S3-m-l INTERNAL DESCRIPTION 

On entry, the Driver checks to see if the Buffered Channel is busy. If 
so, exit is made to the dispatcher as the driver will pick up the current 
request later on. The Driver then checks all other units connected to 
channel for a busy unit. If so, exit is made to the dispatcher. If 
no requests are in progress and the channel is not busy, the driver 
waits till the controller becomes inactive and then proceeds with 
request processing. 

Two types of requests are processed, tape motion and data transfer. 
Suitable table setups are made for each type. In addition for data 
transfers, a check is made to confirm that block length is greater 
than 9 words. Requests for blocks of less than 9 words cause job 
termination. When table setups are complete, the unit is connected, 
mode and density selected. The requests are then passed to a 
corresponding processing routine. In the case of data transfers, if 
the corresponding processing routine is not present, job termination 
results. 

S3-1H.S USE OF INTERRUPTS 

' Interrupts are used to signal completion of the following tape motion 

operations: 

1. Backspace record 

2. Rewind 

3. Mark end of file 

4. Skip one file forward 

While the above operations are in progress the driver has relinquished 
control. All other operations require that the driver retain control 
until they are completed. A partial exception is the rewind-unload 
request. The Driver initiates a rewind, upon regaining control, it 
initiates an unload and exits from Driver. 

S3- 1 *. 3 TPMCTL 

At TPMCTL a parameter is extracted from WORD 15 and placed in the Q 
register to use as an ordinal to the request table. The remaining 
parameters are restored temporarily in WORD 16. Using the ordinal 
in Q the proper routine address is picked up and placed in Q and a 
jump is made to the effective address formed by the value in Q plus 
one. The table format is: 
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ADC 


D0N0TH-1 


ADC 


BSPR- 1 


ADC 


'markef-i 


ADC 


REWIND- 1 


ADC 


UNLOAD- 1 


ADC 


SKIPF-1 
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At TPM1A status is checked to see if tape is positioned at load 
point. If it is, control is given back to TPMCTL to process the 
next parameter thus treating the current parameter as a no operation. 
If the unit is not at load point, control is given to TPM1. 

At TPM1 the function in the accumulator is issued to the tape unit 
and if interrupt was not selected, control is given to TPMCTL. If 
interrupt was selected, the "I" register (the logical unit number) 
is saved in SAVEI and exit is made to the dispatcher. 

At DONOTH (Do Nothing) the current status is taken and stored in 
WORD 13 of the PHYSTB, and exit is made to CONTIU. 

At BSPR the control function to select a backspace and interrupt is 
placed in the accumulator and control is given to TMP1A. 

At MARKEF the control function to select a write or file mark and 
interrupt is placed in the accumulator and control is given to TPM1. 

At REWIND the control function to select a rewind and interrupt is 
placed in the accumulator and control is given to TPM1A. 

At UNLOAD, WORD 16 for this logical unit is set to zero to force 
DONOTH to be processed as the next parameter if the tape unit is at 
the load point. If not at the load point, the REWIND control function 
is selected, with unload being set up as the next function to be 
processed. Unload will terminate this request as the tape unit 
will require namual intervention by the operator before it may again 
be addressed. 

At SKIPF a non stop read is performed and at each end of operation, 
status is checked for end of file and end of tape. When either is 
detected control is given back to TPMCTL to process the next para- 
meter. 

Upon entrance from an end of operation interrupt TAPEC is entered and 
the logical unit from SAVEI is restored in the "I" register. A 
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function code to clear the interrupt is placed in the accumulator 
and control is given to TPM1. 

CONTIU is entered at the completion of each request. The V indicator 
of WORD 10 bits 13 to 15 are computed. If an error was detected 
the Alternate Device Handler is scheduled with Q containing the error 
code and logical unit number, control is given to SEARCH. 

SEARCH examines all units connected to the Buffered Channel (via 
thread in WORD 15) it sees if one needs service. If it finds one, 
the PHYSTD location for the unit is put in "Q" and the DRIVER is 
scheduled. The FOVER flag is zeroed and control is passed to the 
Dispatcher. In this way, the tapes are activated in a commutative 
manner until all requests to all units have been processed. When 
S\ - / this occurs, exit will be made to the dispatcher. 

53-15 T14 - TAPE MOTION CONTROL REQUEST PROCESSOR 

This request processor adjusts return address for direct calls. 

When the above is completed, T14 exits to entry point "SAVLU" in 
the Read/Write Request Processor (E00610A0060S) where threading 
and driver scheduling take place. All legality checking for un- 
protected requests is done in the Protect Processor (E00610A0160S). 
It is assumed that protected requests do not require legality 
■<. "* ■ t checking. 

S3mWi RWBA - READ AND WRITE IN BINARY OR ASCII MODE 

Upon entry to RWBA the contents of WORD 8 for this logical unit are 
stored in local storage EQTAB with bits 1-0 set to zero. The first 
word address is stored in CORE and the last word address + 1 is stored 
in LAST. X in TAPEC is modified so that control will be passed to 
INTRW at interrupt time. The Buffer first word address is stored into 
HOLD with the last word address + 1 stored in Buffer first word loca- 
tion. If this is a write request, control is given to ENRING. If not, 
the Read motion and End of Operation interrupt function is given. 
A buffered input operation will then be initiated. Control will be 
passed to TPEBSY which saves I in SAVEI and jumps to DYNSTA. Interrupt 
will be enabled while Initializing a buffered input or output. 

At ENRING the unit is checked to see if it is write enabled. If it 

is not, core and LAST are placed in A and Q and control is given to 

URECOV. If it is write enabled, the data is packed into the buffer 
prior to a buffered write. 

Upon receiving an End of operation on a buffered read or write, the 
driver will be reentered at INTRW. SAVEI is restored in I and the 
next storing address is requested. The previous interrupt condition 
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is cleared and the status is updated. If an end of file was read, 
$3CFQ stored in first word of user's buffer and control is passed to 
NORMRT, If a parity error was detected, control exits to RCVR, If 
a write operation is being processed control is passed to NORMRT, 
Otherwise the data buffer is unpacked and placed in users buffer; 
control is then passed to NORMRT. RCVR checks to see if the error 
recovery program RECOVR is present, if not present, control is 
passed to URECQV. If present control is return jumped to RECOVR. 
If the error could not be recovered from, URECOV is entered. 

PACKING AND UNPACKING READ /WRITE REQUESTS 

Each 1700 core location will be written or read as three 6 bit 
characters. Two trailing ones will be added onto the low order 
bits of each word on a write and stripped off as the data is read; 
i.e., bits 15- 10 will be the first character written, bits 9-4 
will be the second and bits 3-0 plus two low order ones will be tjie 
third. On reading the tapes, the first characters will occupy bits 
15t10, the second will occupy bits 9-4 and the third will have its 
two low order bits stripped off and will occupy bits 3-0. The 
mode may be either binary or ASCII but will only result in the binary 
recording (odd parity) or BCD recording (even parity) respectively 
of the data on tape. No conversions take place. Writing s?eros in 
even parity will cause difficulty in the controller and should be 
avoided. 

FRWA - FORMAT READ AND WRITE IN ASCII MODE 

The FRWA program is set up the same as RWBA except for packing and 
unpacking (see 5.1), 

PACKING AND UNPACKING FORMATTED READ/WRITE REQUESTS 

Formatted reads or writes in ASCII mode will assume ASCII code in 
1700 core and external BCD (six bits plus parity) recorded in BQD 
(even parity) jaode on tape. The conversion takes place by direct 
table look up (see 5.2). 



ASCII /BCD CONVERSION TABLE 
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FRWB - FORMAT READ AND WRtTE IN BINARY MODE 

■ i n imi l > ll ' ' ' i| '.n i«4w<iij>— i| *-|. | - | i !■ ' i i ! ■ i ' i ' I* '" 'I Tn " I ' . Hi., ' I ' l . I'll l| 

the FRWB prog ran is set Up the same as RWBA except for packing and 
unpacking (seeS3.1fi.^> 

PACKING AND UNPACKING FORMATf ED READ/WRITE REQUESTS 

Formatted reads Or writes in binary mode will assume binary code in 
1700 core an4 binary (even parity) mode on t ape. On reads 6ach six 
bit cbar*<Jt*t received from the tape unit is packed left justified 
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(is starting at bit 14 of word 1 and moving towards of the last 
word). On writes the procedure is the same with every bit working 
from left to right and top to bottom, being written on tape con- 
tiguously. If a write or a read operation does not terminate on an 
exact word, the last character written on tape or read from tape 
is padded with zeros. 

RECOVR - THE ERROR RECOVERY PACKAGE 

This routine may be replaced at the users option. Its entry point 
is labeled RECOVR. It is return jumped to with Q containing pointer 
to routine entered from. 



q 


Routine 





RWBA 


1 


FRWA 


2 


FRWB 



Upon entry to RECOVR the error recovery code in Q is saved in RCODE. 
If the error was detected on a read and RETRY is not equal to three, 
control is given to Rl. Rl increases RETRY and the record is back- 
spaced and control is given to XIT, which causes the record to be 
read again. If RETRY is equal to three, control is given to CLEAN 
where RETRY2 is checked. If RETRY2 is equal to four the routine 
exits back to the calling routine through its entry point. 

If RETRY2 is not equal to four control is given to CLEAN2. At 
CLEAN2, RETRY2 is incremented by one, ENDOP is set to zero and up 
to three backspaces are issued. If load point is sensed after any 
of the backspaces, no more backspaces are done. A count of the 
number of extra backspaces actually executed is kept in ENDOP. A non 
stop read is done and continues until the number of end operations 
specified in ENDOP have been read. At this point the error record is 
the next record to be read and control is given to XIT. 

At XIT the routine determines which routine to re-enter by using the 
value in RCODE as an ordinal to a table or address. The format of 
the table is: 



TBL + 
+ 1 
+ 2 



ADC 


RWBA 


ADC 


FRWA 


ADC 


FRWB 
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If the error was detected on a write and RETRY is not equal to 
two* control is given to Rl. 

If it is equal to two control is given to Wl. At Wl if RETRY2 is 
equal to two, control is given to W6. If it is less than two, control 
is given to W3 and if it is greater than two, control is returned 
to the calling routine through the entry point of RECOVR. 

At W3 the tape unit is backspaced and at least half of the record is 
erased* The number of erases performed is calculated by the 

^ ijL + 1 where N is the number of computer words to be 

written, C is the number of characters per car put er word and D is 
the density the data is to be recorded in. The erases are performed 
by writing a file mark and backspacing. When the computed number 
or erases have been performed control is given to W6. 

At W6, zero is stored in RETRY and control is given to XIT. 
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SM.D PROGRAM NAME 

lTaS-bOA/bOT Magnetic Tape Driver OR17321 

SiJ-l FUNCTION 

DR1732 initiates t monitors and controls all operations 
on any combination of up to eight bDfl and/or bDT magnetic 
tape drivers. These operations are the end result of 
monitor requests on magnetic tape drive logical units 
with a request code defined as follows: 



O 



1 


READ 


2 


WRITE 


M 


FREAD 


L. 


FURITE 


m 


MOTION 



AA 3777 



DR1732 utilizes those features of the 1732 Controller 
which will promote maximum throughput. Non-stop mode 
of operations on reads t writes and tape motion requests 
are performed when appropriate. 

5M.2 ENTRY POINT NAMES 

The following entry points are declared if the driver is 
core resident. 

TAPINT driver initiator 
TAPCON driver continuator 
TPHANG driver I/O hangup 

There are no entry points declared if the driver is mass 
memory resident. The above entry points are then declared 
in the core resident control modulen DBLDRV. 

SM.3 EXTERNALS and DESCRIPTION 

ALTDEV Alternate Device Nandler 
LOG Log errors on Engineer File 
MAKEfl Set error bits in (3 

When the driver is mass memory resident! the following 
external names are also declared: 

BUFALC Checks the ready/busy status of the 17Db 

Buffered Data Channel. 
MAS3DD Allow other drivers to use allocatable core 

if DR1732 is not busy. 
ADRINT Core location in DBLDRV that the driver 

stores the address of the Initiator. 
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ADRCON Core location in DBLDRV that the driver stores 
the address of the Continuator. 

ADRHNG Core location in DBLDRV that the driver stores 
the address of the I/O Hangup routine- 

SM^ ENTRY ENTERFACES 

SM. M.l When a magnetic tape request is executed! DR1732 

is entered via TAPINT- The driver is initialized 
validity of the request checked! equipment 
availability is checked and reserved- The request 
is then initiated. 

5M-M-S Uhen interrupts are received from the 1732 magnetic 
tape controller DR1732 is entered through TAPCON- 
The interrupts are checked to determine expectancy. 
If the interrupt was expected! it is acknowledged! 
if it was unexpected! the Ghost Interrupt message 
is sent to the standard comment device- 

5M.M. 3 Upon I/O or motion control difficulty! DR1732 is 
entered at TPHANG- An error code zero is set 
and control is given to FAILED. 

SM.S EXTERNAL INTERFACES 

SM.S.l Uhen difficulty has been encountered with a physical 
tape device! a call is made to ALTDEV {Alternate 
Device Handler! to determine whether an alternate 
device has been assigned. 

SM-5.2 Uhen errors are encountered! control is passed to 
LOG to record the difficulty on the engineer file. 

5M-S.3 Error status is set in the upper three bits of 
Q via IIAKEfl. 

Uhen the driver is mass memory resident! additional 
externals are declared as follows - 

SM.S.M The BUFALC external routine checks the ready/busy 
status of the 170b Buffered Data Channel and if 
not busy! a check is made for any stacked requests 
waiting for its use. 

SM.S.S If DR1732 has completed! MAS3DD is scheduled 
to allow other drivers to use its allocatable 
core- 

SM-S.b During initialization of DR1732 the address of 
TAPINT, TAPCON and TPHANG are set into DBLDRV 
at core locations ADRINTi ADRCON and ADRHNG 
respectively. 
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5M-ti-l DR173S is initiated by monitor calls which requests 
magnetic tape operations. The following is an 
example of a READn URITEn FREAD or FURITE request. 

15 1M 13 15 11 ID T a '?' b ■ 5 M 3 E 1 D 





RTJ- 






•C5FIO 




1 


Request Code 
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RP 




CP 
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Thread 
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A 




L 




N 


S 



Request Code In En Mn b 



RP 

CP 

X 

C 

V 

M 

A 

L 

N 

S 



Request Priotity 

Completion Priority 

Used to determine Cn N and S 

Completion Address 

Error field 

Moden Binary or ASCII 

Determines L 

Logical Unit 

Number of words to transfer 

Starting address 



The calling sequence for a tape motion request 
is defined as follows: 



SM.b.E 

15 1M 13 IE 11 



10 
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RTJ- 


.. 


{$F4} 


Request Code X 


RP 


1 CP 
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Thread 
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PI 


PE 


| P3 


I Unused 



Request Code 1M 



RP 

CP 

X 

C 

M 

A 

L 

Pin PEn P3 



Request Priority 

Completion Priority 

Used to determine actual completion address 

Completion Address 

Moden Binary or ASCII 

Determines L 

Logical unit number 

Tape motion codes 



P codes are scanned from left to right and are defined 
as follows ■ 
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D -Czero> Do nothing or request termination - 

1 Backspace record 

2 Write file mark 

3 Rewind 

M Rewind and unloadn terminates request 

S Skip file forward 

b Skip file backward 

7 Advance record — an added software capability 

The following binary values specify the DENSITY parameters 

3 . Select SOD BPI 

2 Select 55b BPI 

1 Select ADD BPI 

Do nothing 

SM.b-3 For repeated motion requests -Cup to MOTS} and 
select densityi the fifth word of the motion 
requests parameter string appears as follows! 

15 1M 13 15 11 10 ^ a 7 b 5 M 3 2 1 

r~ on — pi t N 1 



PI Motion or density code 

N Number of repeated requests 

Interrupts are used on tape motion requests. 
The first zero parameter in P1-P3 or expiration 
of the repetition factor completes the request- 

5M.b.M Appropriate entries must be made in LOCOREt 
LOGlAn LOGli L0G2-, MASKT-, DGNTAB and PHYSTB- 
An example of the Physical Device Table -CPHYSTB1 
for a bOT tape drive follows: 

UORD EXT TAPINT-, TAPC0N-, TPHANG 

X = Driver priority level 

Initiator 

Continuator 

I/O Hangup 

Diagnostic Clock 

Logical unit number 

Parameter list pointer 

X =* Hardware address 

X = Equipment class 

Equipment type 

Type of operations ^^ 

Status word one ( 

Core storage address 
Last word address +1 
Status word 2 
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13 NUM X X = Mode of operation 

Unit number 
X = Address of next PHYSTB 
Temporary storage 
Temporary storage 

SM.b-S Program dependant flags and values are as follows: 

BUSY A flag when non-zero indicates the driver 
is currently processing a request- 

LSTPT The same location as BUSY- The address 
of the Physical Device Table which is 
currently being processed- 

ERRCNT An accumulator which contains the error 
count if any- It is used to determine 
which recovery procedure is to be used- 

ALUCC Contains the address of the allocatable 
buffer when the buffer is present- Zero 
when not present- 

5M.fcj.ti DR1732 is coded as a MACRO skeleton- To parameterize 
the driver for a particular configuration! the 
user will prepare a card defining the MACRO 
parameters. This card is to be inserted in the 
source deck of DR1732 before the END card and 
the deck assembled. It should be pointed out 
that the assembly listing will provide only the 
machine code unless the M option is specified. 

The MACRO call card appears as follows: 

TPDRGN PlnP5TP3nPMnP5nPbnP7 

Uhere the formal parameters PI through P7 may have 
the following definitions. 

PI Defines the residency of the driver — CORE 
for core resident or MASS for mass memory 
resident. If PI is equal to MASSn the core 
resident modulen TAPCORn must be loaded 
under the *L portion of the load and DR1732 
loaded under the system name TAPMAS- 

PE Defines the method of data transfer — BUf for 
buffered transfers using a 170b Buffered Data 
Channeln or UNBUf for unbuffered transfers 
using the A<2 channel. 

P3 Defines the type of tape drives which will be 
in the system- P3 will be bDfln bOTi or BOTH. 
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P4 Defines the type of Read/Write requests to be 
processed. P4 will be FORM when only formatted 
requests are to be processedn REG for regular 
requests onlyn or BOTH if formatted and 
regular requests are processed. 

PS Defines whether error recovery for parity 
errors will be attempted. If PS is ERRt 
recovery is attempted. If NOERR is specifiedn 
the error bits are set and the request is 
completed. 

Ph Defines the maximum tape record size for bDfi 
units- If blank n Tb words will be assumed. 

P7 Defines the priority level at which the driver 
is to operaten and should be in the range 5-14. 

54.7 DR1732 GENERAL DESIGN 

S4.7.1 DR1732 having the capability of being a mass 

memory resident driver is coded in run anywhere 

code. Uhen the driver does reside as a mass 

memory resident routinen sufficient allocatable f 

core must be available in which the driver may v 

reside or a hangup will occur- The driver n 

either core or mass memory resident makes a space 

request for its buffer. 

54-7.2 The driver is not reentrant. Uhen the initiator 
portion of the driver is enteredi a checked 
is performed to determine whether a request is 
being processed {driver is busy} and if busyn 
an exit is taken to the DISPATCHER. 

54. 8 GENERAL PROGRAM LOGIC 

54. A. 1 When a request is made to perform a function on 
bOfi/bDT magnetic tapes n the initiator portion of 
the driver is entered- The Physical Device Table 
■CPHYSTBJ address of the present PHYSTB is contained 
in the 0. register. The priority level is set in 
all driver calls and if mass memory resident! 
the addresses of TAPINTn TAPCON and TPHANG are 
placed in the appropriate locations in DBLDRV. 
If the driver is busy an exit is made to the 
DISPATCHER. Uhen the driver is not busyn the 
error count -CERRCNT1 is initialized and unit 
rewind is determined. Uhen the unit is rewindingn 
a check is made for the next PHYSTB i otherwise a f 
check is made to determine if the unit has completed ^ 
rewinding. If it has completed rewindingn the next 
motion code is picked up and an exit is made to 
M0TI0N+2. If still rewinding! FNR is entered 
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to find the next request- Upon return from FNRn 
a check is made to see if the 170b Buffered Controller 
is busy only when the buffered version of the driver 
is being used- The request code is checkedn if it 
is a motion requestn control is given to dOTIONn 
if not motiorn control is given to XFER for data 
transfer. The data transfer is initiated by connect- 
ing to the designated unitn selecting the mode and 
type of operation. If it is a write binary operation 
on a LOT magnetic tapen the binary data is not 
unpacked. When binary data is written to a bQfi 
type unitn all data is unpacked to two six bit 
characters per word. Upon returning from initiating 
the WRITE requestn an exit is made to the DISPATCHER. 

A READ request is initialized the same as a WRITE 
only there is no unpacking of data regardless of 
the type of unit. The PACK routine is entered 
after the first READ has been completed and the 
Continuator portion of the driver is entered. 
If any faults are discovered in the requestn the 
appropriate code is picked up in the A register and 

/'""""' control is given to the FAILED routine- 

^^ 

SM.fi. 2 When the end of operation interrupt is receivedn 
the continuator -CTAPCON! portion of the dtiver is 
entered with the address of the TPO labeled PHYSTB 
in Q • When the driver is not expecting an interrupt 
■Cno interrupts pending! a Ghost Interrupt -CGI! 
message is sent to the standard comments device- 
Expected interrupts cause status to be taken on 
the functioning unit. If the unit was executing 
a motion requestn an exit is taken to NXTNOT to 
check for and process the next motion request- 
When the request is not a motion requestn parity 
is checked on the data transfer just completed. 
When parity is present an exit is made to the 
recovery i5M.fi. 31 portion of the driver and recovery 
is attempted. When the operation completes without 
error-i the type unit is determinedn seven track 
or nine track. If the unit was a bOfl {seven track! 
devicen continue at 1-1 else update the first word 
address of the buffer- -Cl-ll It is determined if 
a read or write was last performed and if a readn 
a check is made for the file mark. If a write 
was being performed continue at I.E. If the end 
of file is presentn control is given to CflPRD 
where status bits are set in 0. via MAKEfl and an 
exit is made via COMPRfl {complete request processor!- 
If the file mark was not presentn and binary infor- 
mation was readn the data is packed into the users 
buffer. If ASCII data was transferred! conversion 
from BCD to ASCII is made. -Cl.2! The completion 
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bit is checked if setn an exit is made to the 
complete request processor -CCONPRd} to perform the 
housekeeping for the driver- Upon returni control 
is given to FIND to get the next request- If 
the completion bit is not seti the status bits 
ar& set in (3 and the preceding sequence follows 
via the complete request processor- 

SM-fi-3 The recovery portion -CRECVR3- is entered when a parity 
error has been detected- A check is made for 
parity caused by an end of file mark- If end 
of filen an exit is taken to READCK to allow the 
completion request process previously described to 
be executed. If no end of file status is present i 
the following sequence is performed to try recover- 
ing from the parity error* The error is logged 
on to the engineer file via LOG- If a read was 
in operation when the error occurredi a backspace 
is done followed by a read and error check- If 
the error persists t the preceding sequence is 
performed three more times. If the error still 
exists three consecutive backspaces ar& performed 
checking for loadpoint after each backspace has ^_ 
completed. This allows the error portion of the 
tape to pass across the tape cleaner portion of 
the heads. Execute up to three reads depending 
upon load point and check for read error on last 
read- If the error remains i perform the preceding 
sequence four times prior to declaring the error 
irrecoverable and exiting to the FAILED routine- 
The FAILED routine sets error flags and makes a 
call to the alternate device handler -CALTDEVl and 
upon return the next PHYSTB is determined via NXTPT- 
The write parity errors follow the succeeding sequence. 
The write is performed three times detecting 
for the error after each- This procedure is tried 
three consecutive times and if the error persists n 
the preceding FAILED sequence is executed. 

5M.A-M The 1-0 hangup -CTPHANG1 section is entered when 
the driver fails to reveive an interrupt from an 
initiated operation- The Q. register contains the 
address of the physical device table that has failed 
to interrupt- The error code is set in the A 
register and control is given to the FAILED routine- 
The FAILED routine executes the same as previously 
explained. 
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SM.T SUBROUTINE LOGIC 

In the following description! the labels used in the driver 

are placed to the left of the description to enhance 

an easy relationship directly to the listing and flowchart. 

TAPINT Places the driver priority level into all requests 
made be driver and set the entry point adresses 
of TAPRINTn TAPCON and TPHANG in there respective 
locations in DBLDRV. The entry points are placed 
into DBLDRV only when the driver is mass memory 
resident- A check is made to determine if the 
driver is busy and if soh an exit is taken to 
the DISPATCHER or else control is given to label 
NOTBSY. 

NOTBSY Zero the error counter ERRCNTt and set the record 
of the last Physical Device Tablen LSTPTn equal 
to the current table address- 

TSTRUD Test the rewind bit -Cbit b of ESTATll to determine 
if the unit is presently rewinding. If rewinding! 
r ^ go to NXTPT or else go to NORUD. 

NORUD If the motion bit -{bit 5 of ESTATll is upi a rewind 
has just completed. Decrement the rewind counteri 
RUn update the motion control code wordi ETEMPEt 
and go to F10TI0N+2. 

f IND Go to Find Next Request routine. If there are 
no requests waiting on this unit! go to NXTPT 
or else save the current PHYSTB address in LSTPT 
and place the PHYSTB address into the parameter 
list of BUFALO Put the absolute address of FAILED 
into the BUFALC parameter list- Give control to 
BUFALC to determine if the 17Db Buffered Data Channel 
is busy. If the 170b is busy! go to FAILED routine 
or else extract 'the request code from thp user 
parameter list and go to MOTION if a motion request 
or else go to XFER. 

NXTPT Pick up the address of the next PHYSTB from ELINK 
of the present PHYSTB- If a new PHYSTB is not 
present! go to EXIT else check to determine whether 
an error is pending on the newly acquired PHYSTB- 
If an error is pending! do not remove the PHYSTB 
from the string until the error has been processed 
so go to N X TPT. If the PHYSTB is error freei go 
to TSTRWD. 

[ ) EXIT Set the driver not busy and check if a rewind 

is in progress. When a rewind is in progress n 
the in core flag -CADRINTl is not cleared. The 
bufferi if present n is released and the buffer 
FDA is set to zero- The MAS3DD routine residing 
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in DBLDRV is scheduled to allow other drivers the 
use of the 17Qb. BUFALC in DBLDRV is entered 
to determine the status of the 17Db and whether 
a request is on the BUFALC queue- If the 17Db 
rejects the status requestn the exit is made to 
the DISPATCHER from BUFALC. Return is i.to P+3 
of the BUFALC call when a request is found on 
the queue and the 170b is not busy. 

XFER The unit is selected-, through UNTSELn and bitm 
of ESTAT2 is tested to determine which type drive 
is connected. Go to MtiDT or MbOfin depending on 
type- 

MtD^ Initialize the internal control addresses n FUA 
and LUA. Set the parity code to oddn set the 
motion index up for read or writen and go to 
IOXFER. 

flbOfi Acquire allocatable core if needed and set up 

control addresses n FUA and LUA according to mode 
of transfer! ASC or binary. If this is a write 
requesti repack the binary information for assembly 
moden or convert the ASC code to external BCDn and 
go to IOXFER. 

{buffered} 

IOXFER Set the unit's parity through UNTSEL. If this 
is a write requestn check for the presence of 
the write ring by RINGCK- The appropriate tape 
notion is started and the buffer transfer initi- 
ated. The diagnostic cleckn EDCLKn is set up 
and an exit is taken to Dispatcher to await the 
End of Operation interrupt. 

{unbuffered} 

IOXFER The parity code is set up and a write ring check 
made if this is a write request. The tape motion 
is then started. The data transfer of the record 
is then accomplished using the A<2 channels- 
EDCLK is updated and an exit taken to the 
Dispatcher to await the EOP interrupt- 

ASCBCD This is a subroutine which does the setup and 

interface with subroutine A2BCDn which performs 
the ASC to BCD conversions. 

UNPK The unpacking of binary data is necessary for the 
assembly mode of the bDfi magnetic tape drives. 
The format of unpacked data is as follows: 
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1-Dgi 15-1E 3 
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11 - ^ 


D 


5 - D 3 
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IN A subroutine which performs hardware input in- 
structions and monitors reject conditions. 

UNTSEL This subroutine combines the code in the A register 

with the select codei UNTHODn performs the select 

function through the subroutine! OUT. The subroutine! 
STATUSn is also called. 

STATUS This subroutine reads both hardware status words ! 
through the subroutine INn and combines them into 
the Physical Device Table word ESTATE- 

TAPCON This is the entry point for interrupts from the 
173E magnetic tape controller. The buffer is 
terminatedn the diagnostic clock is reset and 
the interrupt is acknowledged. If no interrupts 
were expected! a monitor request is made to print 
the Ghost Interrupt message -CGI PIT! on the standard 
comment device- 

EXPECT The interrupt was expect so the diagnostic clock 
is reset and the STATUS subroutine is entered to 
status the device- The Ready Status bit is checked 
and if it is down! a failure code of t is passed 
to FAILED. 

READY If the motion control bit {Bit five of ESTATll is 
up! control is passed to NXTMOT- If not up! go 
to N0M01. 

N0N01 If the parity error status is set! control goes to 
RECVR otherwise go to NOPAR. 

NOPAR The device status is examined to determine the type 
of device being used- If the unit is not a bOAi 
the first word address is updated before checking 
the type of I/O being performed- Control is given 
to READC if a read was performed or LJRITEC if a write 
was performed. 

READC The EOF status is checked- If present! the EOF 

bit {Bit 14 of EREflSTl is set and control goes to 
CflPRD. If not present! go to NOFILE. 

NOFILE If bDa device! go to CKMOD else go to WRIT EC- 

CKH0D If the mode of operation is BCDi go to BCDASC or 
if the mode is Binary go to PACK. 
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BCDASC A subroutine which performs setup for and interfaces 
with the subroutine BCDEAt which performs the BCD 
to ASCII conversions. 

URITEC The completion bit and the FUA/LWA is checked for 
completion. If not completed go to XFER else give 
control to COMPL. 

COHPL If the function is either a write or motion requesti 
a call is made to the Complete Request Processor 
■CCOMPRfi} prior to going to FIND. If the function 
was a readn MAKE(2 is entered prior to going to 
C0MPR<2. 

PACK The binary data that was unpacked to assembly 
mode is repacked to full binary words- 

RECVR When RECVR is enteredi a check is made to determine 
if the EOF caused the parity. If the EOF caused 
the parityn the completion bit is set {bit 1M of 
word eight? and control is given to COMPL- If not 
EOFn the error is logged on the engineer file via 
LOG and the error counteri ERRCNTn is used as a 
jump index into the recovery routine tablen RCVRTBn 
to enter the correct routine- ERRCNT is then tallied 

FALPAR Error code 3 is passed to FAILED to indicate a 
parity error- 

RECVR The error counteri ERRCNTn is used as a jump index 
into the tablen RCVRTB and ERRCNT is tallied- 

FALPAR The error code 3 is passed to FAILED to indicate 
a parity error- 

BCKRD The subroutine XCTMOT is called to backspace one 
record and control is passed to IOXFER. 

BCK3RD This routine attempts to backspace three records i 
checking for load point after each backspace. 
Then the tape is advanced the number of records 
which has been backspaced and the transfer is attempt- 
ed again at IOXFER- 

BCKUT This routine backspaces one record by XCTMOT and 
then passes control to IOXFER. 

ERASE This routine writes a file mark and then backspaces 
one records which amounts to an erase tape function - 

TPHANG This is the entry point for I/O hangups- An 
error code of zero is passed to FAILED- 

FAILED If a failure occurred during a rewindn the rewind 
counteri RbN is ducremented and a call is made to 
MAKE<2 to set the error bits prior to setting the 
device failed and error bits in control word ESTAT1- 
Then the error code and logical unit number are 
formed as the passed parameter in a scheduler call 
to the Alternate Device Handler -CALTDEV}. 
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MOTION The requestor's motion code word is retrieved from 
the calling sequence and the subroutine XCTH0T 
is entered. Upon return! control is passed to 
COMPL. 

XCTMOT The motion code is saved in location ETEPPEt the 
motion control bit is set in ESTATli and the unit 
is selected by the subroutine UNTSEL. The next 
motion code! bits 1M-12 of ETENPEn is used as a 
jump index into the table SUBMOT. 

MOTSTR This routine entered by all of the motion processors 
The proper motion function is initiated through OUT. 
If an end of operation interrupt was requested! 
an exit is taken to the Dispatcher. If EOP was 
not requestedn the motion was either a rewind or 
a rewind and unload. If an unload was requested! 
DONEM is entered. If a rewind was requested! 
control is passed to NXTPT. 

DONEM The motion code is zero or an unload function has 
just been executed. Density select is performed 
of requestedn the motion control bit is reset! 
and a return through XCTMOT is taken. 

WRFM The code is 2. A write ring present check is 

performedn proper parity determined! and control 
is passed to MOTSTR. 

REW The code is 3- A load point check is performed 
by LPCHK and if not present! the rewind control 
bit -Doit b of ESTATll is set and the low level 
program REWCK is scheduled at level U- The 
subroutine BUSYCK is called and upon return control 
is passed to MOTSTR. 

BKSP The code is 1. The subroutine! LPCHKn is called 
and control is passed to MOTSTR. 

REUUN The code is M. The control word! ETEMP2! is 

zeroed to terminate the motion request. The sub- 
routine BUSYCK is called and control is passed to 
MOTSTR. 

FLFR The code is 5. The proper parity is determined 
and control is passed to MOTSTR. 

FLBK The code is b. The subroutine! LPCHKi is called! 
proper parity is determined! and control is passed 
to MOTSTR. 

NXTMOT This routine is entered after an EOP interrupt 
and when the motion bit is set in ESTAT1- If 
more iterations of the current motion are tc be 
performed the iterations are tallied down and 
control is passed to DOMOT! which re-defines the 
motion index for MOTSTR. If no iterations remain! 
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the motion control word ETEMP2 is updated for the 
next motion and control is passed to D0K0T- 

BUSYCK This subroutine checks the status of magnetic 

tape system for a busy condition and returns if 
the status is negative- If Busy is upn the low 
priority program BSYUAT is scheduled at level "4 
and an exit taken to the Dispatcher- 

BSYUAT When the busy status goes negativen the location 
NOBUSY is scheduled at the driver level n which 
restores the I-register with the address of the 
Physical Device Table which is currently being 
processed- 

RINGCK This subroutine checks for the presence of a 

write ring on the selected unit- If not presentn 
an error code of 1 is passed to FAILED- 

LPCHK A check for load point is performed- A normal 

return is executed if a negative condition exists- 
If load point status is upn the motion interation 
counter is zeroed and control passed to NXTMOT- 

CKPRTY The proper parity is determined and selected for 
the file mark operations - 

REUCK A rewind operation is in progress- This routine 
checks the status for the presence of load point 
and when it occurs n the' rewind control bit is 
reset in ESTATl and the driver is scheduled. Upon 
and internal reject on status function! schedule 
up todrivers priority. 

WAIT This routine monitors the controller active 

status at a low level for UNTSEL- Uhen a not 
active condition occurs n the location CONSEL is 
scheduled at the priority of the driver- 

A2BCD ASBCD converts ASCII codes {two ASCII characters 
per wordi Bits 0-bn fl-lMl to BCD codes -Ctwo BCD 
characters per wordn Bits 0-5n fl-131- The original 
codes are replaced by the converted codes so the 
orginal ASCII buffer is modified to be a BCD buffer- 

BCD?A BCDZA converts a buffer of BCD codes -Ctwo characters 
per worki D-5n fl-131 to ASCII codes -Ctwo ASCII codes 
per wordn Bits 0-bn fl-lM>. The original BCD buffer 
is modified to be an ASCII buffer- 
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55. 17H5-2 DISPLAY DRIVER 

55.1 General Structure 

There are three(3) modules in this driver, the Initiator, the Continuator, 
and the Diagnostic entry(DDINIT, DDCONT, DDDIAG). Actions are usually in- 
itiated in the Initiator and completed in the Continuator, but control is 
often passed back and forth between these modules during the operation of 
the driver. 

Error Entry 

The first portionof DDDIAG is entered only in the case of Timer Timeout. 
The second portion, which prepares for the jump to the Alternate Device 
Handler, is entered nearly every time there is any kind of a reject of an 
I/O instruction. The only exception is in the unbuffered version of the 
driver when the driver initiates a read and the display controller rejects 
because data is not ready the first try. (A Data Interrupt will indicate 
when data is ready.) There are no re-tries on rejects. 

This driver is interrupt-driven. Actions are initiated by the driver and 
control is then given to the dispatcher until an interrupt indicates the 
action is complete. 

Interrupts are inhibited only when calls are made to request or release 
Volatile Storage. 

2. Requesting Space 

Normally when space is required in core a request is made for allocatable 
core via a Space Request. The driver will never request more than what is 
needed for a full CRT(13 X 80 CRT can hold maximum of 1040iq characters, 
20 X 50 CRT maximum of 1000^q characters), and in the case of small requests 
goes to Volatile because Allocatable is not always available. 

This driver pays no attention to line size(either 80 or 50 characters). Data 
arrangement in lines is up to the user. 

Allocatable core is requested when data is read in for an FREAD command. (buf- 
fered version only) The data read in may include STX and ETX characters which 
need to be stripped from the message. Then the edited data is passed to the 
user' s buffer. 

Allocatable core is also used to hold the user's pseudo-escape codes because 
the hardware will not handle pseudo-escape codes appropriately. Instead, 
the pseudo-escape codes in the user's buffer are replaced with Sync codes 
(which do nothing), until the message has been sent. Then the pseudo-escape 
codes are returned to the user's buffer allowing the user to send the same 
message again if he desires. 
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3. Pseudo - Escapes 

Pseudo-escape codes are those which the driver will interpret and take the 
necessary action to perform but which are not acted upon solely by the 
hardware • 

They are: 

FUNCTION ESCAPE HEX VALUE 

Clr/Reset IB OC 

Turn on Alert IB 07 

Disallow Send Interrupts IB 1A 

No Cursor Movement IB 16 

4. Programmed Line Skip 

The FWRITE instruction normally activates a Line Skip procedure before the 
user's data is sent to the CRT. This will cause the data to be displayed on 
a new line. If the user wishes to prevent this Line Skip, and he chooses to 
write no other escape functions(either pseudo or otherwise) the "No Cursor 
Movement" function will enable him to do so. Any other escape function at the 
beginning of the message will automatically inhibit the usual Line Skip. 

The automatic Line Skip also has a couple Line Clear functions associated with 
it. (Line Clear will work only with a display that has an edit keyboard.) 
The automatic Line Skip also occurs preceding an FREAD and includes an STX 
code. Then data which the operator enters will be read beginning with the 
STX. If the operator chooses, the CRT may be cleared before entering, and if 
no STX is placed back on the CRT, the read operation, which begins after the 
operator depresses SEND, will begin at the upper left corner. 

5. Priority 

If a CRT is to be used as a comment device, it should be run at the same priority 
level as the standard comment device. If buffered it should run at a priority 
level equal to or lower than other devices on the 1706, and at the same priority 
as the 1706. 

6. Status 

A program which requests Status of the device will get Director Status one(l) 
from word twelve(12) of the Physical Device Table. 

7. Status Switches 

The setting of the Status Switches, which is obtained with Director Status Two(2), 
is passed to the user in his routine RD1745(Send Request Processor) in the Q Regis- 
ter along with the logical unit number of the station that interrupted. The 
logical unit number appears in the lower eight (8) bits, and the Status Switches 
appear in bits eight(8) to eleven(ll). 
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8. Not Re-entrant 

This driver normally expects to complete any operation which it has begun before 
allowing another request to be acted upon, even if a newer request is of a 
higher priority level. At the beginning of the driver the "op in progress" bit 
is examined to check for driver in operation. If the driver is busy with an 
FWRITE, WRITE or READ request on any of the logical units which are threaded to- 
gether, control will be released to the Dispatcher. The request will be picked 
up after completion by going through FNR for each device on the Thread, 

The only exception is if an FREAD request is in progress and has reached the 
point where the driver is waiting for the operator to enter information. This 
point is indicated by the absence of bit six(6) in word nine(9) of the Physical 
Device Table. Bit six(6) present indicates the driver is processing an FREAD re- 
quest. When bit six(6) is absent the driver will allow other requests for other 
logical units to be processed. 

9.1 Request Flow 

The general sequence of events for an FREAD request is as follows: 

An Alert, Line Clear, Line Skip, Line Clear, and STX codes are first written on 
the display. In the 1706(Buf fered) version of the driver, a completion interrupt 
from the 1706 will then be expected. In the unbuffered version, a data interrupt 
is expected after each word written or read. Then a Write Terminate instruction 
is executed to obtain a 1745-2 End of Operation interrupt to assure that the dis- 
play is done handling the data. (When a Line Skip or New Line Code is sent as the 
last character in a message, a maximum of one(l) millcsecond may elapse before the 
End of Operation interrupt occurs.) After clearing bit six(6) in word nine(9) and 
clearing Active on the display, the driver is exited to wait for operator data 
entry. When the Send interrupt occurs, indicating the operator has entered the 
data, the data is read in from the STX marker or from upper left corner of the 
CRT. 

Completion of the read is indicated by the ETX causing a 1745-2 End of Operation 
interrupt or a 1706 End of Operation interrupt if the buffered version is being 
used. The 1706 interrupt will occur only if the number of words requested is 
equal to or less than the number of words entered. In the unbuffered version, 
the driver will read to ETX (End of Operation interrupt) , or until the requested 
number of words has been read whichever is shorter. 

The data is read in and edited so as to remove the STX (if any,) and the ETX codes. 
Then control is passed back to the user program or to additional requests if any 
are stacked. (In the buffered version the data is first read into an Allocatable 
or Volatile Storage area before being edited and moved to the user's area.) The 
edited data is followed by an $FF character or an $FFFF word if space is available. 
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9.2 READ request 

The READ request is not preceded with any kind of a write but reads immediately 
from the current cursor position to ETX or buffer full, whichever is shorter. 
The data is passed directly to the user unedited. 

9.3 FWRITE request - 

The data in an FWRITE request is examined for an escape code in the first character 
position. If one is present the next character is examined to see if it is one 
which the hardware will act upon, or if it is one defined as a pseudo-escape code 
upon which the driver will act. Pseudo-escape codes are processed by the driver, 
stored elsewhere, and replaced in the data stream with Sync codes. If there are 
no escape codes at the beginning of the data stream, a Line Clear, Line Skip, 
Line Clear series of codes is sent to the display. They are followed by a Write 
Terminate. Then the data stream is sent, followed by a Write Terminate. At the 
completion of the Write Terminate, the pseudo-escape codes are returned to their 
respective positions in the data stream, the area where they were stored is re- 
leased, and the request is completed. 

9. A WRITE request 

This request is much like the FWRITE request because data at the beginning of the 
data stream is examined for pseudo-escape codes and such codes are implemented 
if found. However, there is no provision for an automatic Line Skip as in the 
FWRITE request. 

10. Flag Settings 

When an interrupt occurs, the following values of DINFLG enable the Iriver to 
know what operation was completed: 

Buffered version: 

1 Write Terminate caused End of Op Interrupt on 1745-2 

2 READ completed through 1706 

4 Line Skip preceding FWRITE completed through 1706 

8 Line Skip preceding FREAD completed 

10 Completed transfer of data on FREAD through 1706 

20 Completed transfer of data on WRITE or FWRITE 

Unbuffered version: 

2 READ data transfer completed 

4 Line Skip preceding FWRITE completed 

8 Line Skip preceding FREAD completed 

10 FREAD data transfer completed 

20 Completed data transfer WRITE or FWRITE 

40 Completed reading one extra word on FREAD 
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The FREAD commands usually end up reading one word more than required due to the 
additional character positions taken up by ETX and STX if present. If STX is 
present at the beginning of the message, the STX character is stripped off and all 
other characters moved up one character position. The operator may remove the 
STX by clearing the CRT manually. Therefore, the driver checks first whether 
the STX is present. 

11. Additional Flags 

SENFLG 1= Do not enable SEND interrupts 
= Enable SEND interrupts 

This flag is examined and cleared each time the driver nears completion; therefore, 
the user must request the pseudo-code "Disallow Send Interrupts," with each 
WRITE or FWRITE command if he wishes to continue disallowing Send Interrupts. 
Send is automatically allowed when the driver encounters an FREAD command. 

RWFLG (in the unbuffered version) indicates whether the driver is in a read 
or write operation. 

= Read 

1 = Write 

ALLFLG if set indicates the address at which allocated core begins. 

MIFLG indicates whether manual Interrupt has been requested by operator. 

12. Physical Device Table 

EXT DDINIT, DDCONT, DDDIAG 

CRT451 NUM $1299 Request for Scheduler 

Word 1 ADC DDINIT Initiator Entry Address 

2 ADC DDCONT Continuator Entry Address 

3 ADC DDDIAG Diagnostic Entry Address 

4 NUM -1 Diagnostic Clock 

5 NUM Logical Unit 

6 NUM Parameter List Location 

7 NUM $1501 (buffered) or $501 (unbuffered) 

Code to obtain status from display device 

8 NUM $E6 Equipment Code 

9 NUM Error field and request code 

10 NUM First Word Address(FWA) 

11 NUM Last Word Address + 1 (LWA + 1) 

12 NUM Last Equipment Status of 

device(Director Status 1) 

13 NUM $40 Physical Station Number (Example 

shows Physical Station 1) 

14 ADC CRT452 Thread of next device(If only one 

device, should thread to itself--last device should always 
thread back to first device--if buffered, should thread to 
other devices on 1706 Buffered Data Channel.) 

15 NUM 11 Station Logical Unit 

16 NUM Words 16 & 17 are temporary storage 
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12. Physical Device Table, concluded... 

17 NUM for the driver necessary when 

other stations have requests to be processed while one 
station is waiting for operator to enter data for an 
FREAD request. When FNR searches for other requests, 
words 5, 10, and 11 are destroyed. These must be re- 
placed when the FREAD request is processed to completion 
after operator hits SEND. 

18 NUM $2000 Code to obtain Status on 1706 

(Buffered driver only) 

13. 1745-2 Hardware Function and Status Codes 

Director Function 1 

Bit Clear Controller 

1 Clear Interrupts and Enables 

2 Enable Data Interrupt 

3 Enable End of Operation Interrupt 

7 Enable Station Interrupt 

8 Clear Memory and Reset Marker 

9 Alert 

10 Reset Marker 
12 Write Terminate 

Director Function 2 
Bit 4 Set Station Active 
5 Clear Active 
6-9 Station Address 

10 Select Station 

11 Deselect Station 

Director Status 1 

Bit Ready 

1 Busy 

2 Interrupt 

3 Data Ready 

4 End of Operation 

11 EOM 

12 Station Active 

13 Send Request 

14 Message Pending 

Director Status 2 

Bit Status Switch 1 

1 Status Switch 2 

2 Status Switch 3 

3 Status Switch 4 
6-9 Station Address 
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14. EPROC 

Since EPROC is inadequate at present to handle interrupts from the 1706 or 
from multiple displays even if unbuffered, the user must provide his own 
interrupt handling capability. An example of such a routine which has been 
attached to SYSBUF is given in the Installation Manual. 

In addition, the LOCORE Interrupt Trap region must be set up to indicate 
the user's interrupt handler instead of EPROC at the appropriate interrupt 
entry. 

15. User' s Send Request Processor 

This routine is necessary because of the nature of the display Send Key. 
Since it is capable of interrupting at any time, the Send Request Processor 
should be set up to determine what to do with the interrupt. If there is a 
request for the driver when the SEND interrupt occurs, the driver will handle 
it, but if there is no request against the driver, control will be passed to 
the Send Request Processor, RD1745. In the routine RD1745 which must be in- 
stalled in the Operating System at the same time as the driver, the user can 
specify whether a process program should be scheduled, an error message written 
to the Comment Device, or the interrupt should be ignored. 

The following sample coding for RD1745 looks for Status Switch 3 set. If r~ 

found, a process program from mass memory is scheduled. If not found an V_ 

error message is scheduled for the Comment Device and exit made to the Dis- 
patcher. 
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STORQL 

RD1745 
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NAM 

ENT 

EQU 

EQU 

EQU 

EXT 

NUM 

NUM 

N0P 

STQ* 

LLS 

QRS 

STQ* 

AND- 

INA 

SAN 

LDQ* 

RTJ- 

NUM 

ADC 

JMP- 

RTJ- 

ADC 

NUM 

NUM 

NUM 



(ADISP) 
(AM0NI) 

fwrite+rp*5*k:p*5 



$8FC 



DATE 

"page" 



J5JL.fi 



RD1745 

RD1745 

FWRITE($C00),RP(16),CP(1) 

AMONl($F4),ADISP($EA) 

NOOOF(6) 

USERXY 







ST0RQ 

8 

8 

ST0RQL 

NOOOF 

-4 

A-*-l 

ST0RQ 

(AM0NI) 

$1255 

(USERXY) 



MACHINE SERIES 



17DD 



SAVE LUN + STATUS 



SAVE LUN 0NLY 

MASK 0FF STATUS BITS IN A 

CK F0R SWITCH 3 0NLY SET (BIT 2) 

IF 0THER SWITCHES, WRITE ERR0R MES 

SCHEDULE USER PROCESS TYPE PRG 

WHICH RESIDES 0N MASS MEM0RY 

NAME 0F USER PROGRAM T0 BE 

CALLED FR0M DISK 

EXIT T0 DISPATCHER 

WRITE ERR0R MESSAGE T0 COMMENT DEVICE 

C0MPLETI0N ADDR 

COMMENT DEVICE 



MES 



NUM 

ADC 

JMP- 

ALF 

END 



17 

MES 

(ADISP) 

17, INCORRECT STATUS SWITCH SELECTION. 



LENGTH 0F MESSAGE 
FWA 0F MESSAGE 
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16. Sample Process Program 

The following code is an example of a process program residing on mass memory 
and called by RD1745. The first instruction $C8FE picks up the address in 
core where the program is placed when read in from mass memory. This program 
cannot have any P designations in the assembled listing. These can be avoided 
by coding such as LDA =XMES -USERX. Core occupied by this program must be 
released when the program is done. 

This sample routine merely writes a message on the device that had a Send in- 
terrupt. 

SAMPLE USER PROCESS PROGRAM 

LDA WITH *-l T0 FIND 0UT THE 
ACTUAL BEGINNING ADDR 0F USERX 
AFTER IT HAS BEEN LOADED FR0M DISK 
SAVE LUN N0.+ STATUS SWITCH 
SETTING--LUN IN L0WER 8 BITS — 
STATUS SWITCHES IN BITS 8-11 



V. 



USERX 
* 


NAM 
ENT 
NUM 


USERX 
USERX 
$C8FE 


* 






* 


STQ* 


ST0RQ 


* 









TRQ 


A 








AND 


=N$FF 








ST A* 


LUN 


• 






LDA 


=XMES -USERX 








ADD* 


ADDR 




c 




STA* 


FWA 






NUM 


$C00 


FWRITE 






NUM 





CONTINUATION 






NUM 





THREAD 




LUN 


NUM 





LUN 






NUM 





MESSAGE LENGTH 




FWA 


NUM 

LDA* 

STA* 




ADDR 
REL + 2 


FIRST WORD ADDRESS OF MESSAGE 




REL 


RTJ- 


($F4) 


REQUEST TO RELEASE C0RE 






NUM 


$1801 


0CCUPIED BY THIS PROGRAM 






ADC 





JUST BEFORE EXITING 






JMP- 


($EA) 


EXIT TO DISPATCHER 




ADDR 


NUM 





BASE ADDRESS OF PROGRAM IN CORE 




ST0RQ 


NUM 









MES 


ALF 
END 


9, THIS IS A MESSAGE 
USERX 







A process program such as the one above is included in the system at installation 
time. A *YM entry with its ordinal, the program itself, and a priority level 
*S statement make up the items to be included at install time. The following are 
sample entries: 

*YM,USERXY,19 

? ' 

*M USERXY 

? 

*S,19,3,M 
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17. Clearing Interrupts 

Normally the operator ought to manually Master Clear the 1745-2 Display Con- 
troller before putting it into operation to clear out SEND interrupts if any 
SEND keys have been pushed when the computer is not operating. However, the 
following code, when added to the SPACE module of the Operating System, will 
help to clear up this problem. It can be inserted following the REJ N0P 
instruction. It should not be used if any devices other than CRT's are on 
the thread unless code is added to check the device type, which is found in 
word 8 of the Physical Device Table, bits 10 through 4. The device type for 
CRT's is E, and is found in bits 7-4. All display devices in the thread must 
be turned on before this coding will work properly. 
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IN SPACE M 
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AT RESTART. 






EXT 


CRT451 




LDQ 


=XCRT451 




STQ* 


SAVQ 
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ST0RQ 


L00P 


LDA- 


13, Q 




AND 


=N$03C0 




ADD 


=N$0410 




LDQ- 


7,Q 




INQ 


1 




N0P 







0UT 


-1 




INQ 


-2 




LDA 
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N0P 







0UT 


-1 
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ST0RQ 
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13, Q 




AND 
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ADD 
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Sb.O CYFT - Cosy Format 

St. 1 Function 

CYFT is used to build a hollerith tape suitable for input 
to COSY. CYFT inserts the appropriate DCK/i H0L/ and END/ 
cards. 

5b. E Entry Point Names 

CYFT 
St. 3 Externals 

None 
5b. 14 Entry Interfaces 

CYFT is a program library program called by a * entry point 
statement. 

5b. 5 Exit Interfaces 

None 
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57.0 LCOSY 
57-1 Function 

LCOSY will list cosy deck names and punch deck cards on the 
assigned punch device. Input terminates with a cosy END/. 

57. E Entry Points 

LCOSY 
57.3 Externals 

None 
57. M Entry Interfaces 

None 
57.5 Exit Interfaces 

None ( 
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Sfl-0 DTLP 
Sfl-1 Function 

DTLP is a bootstrap program which provides a means of 
getting the DSKTAP file into core and execution. 

Sfl.2 Entry Points 

DTLP 
5A-3 Externals 

SI 
Sfl-M Entry Interfaces 

None 
Sfl-5 Exit Interfaces 

None 
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ST-D Disk to tape Loading Program 

51-1 Function 

The function of DSKTAP is to save a mass storage operating 
systerrn which has been installed on a disk packn on a 
magnetic tape- This magnetic tape can be dumped onto a 
j disk pack via DSKTAP thus eliminating the need to re-install 

ST-E Entry Point Names 

! DSKTAP 

5^-3; Externals 

ENCDHX 

DCODHX 

ENCODE 

CDRIVE 

MDRIVE 

MGDRIVE 

MGREAD 



Comment Driver 
Mass Storage Driver 
Magnetic Tape Output 
Magnetic Tape Input 



ST- 4 Description 



DSKTAP is a stand alone program- It has its own drivers 
for the 1733-1 1731-1735-, 1711. The DSKTAP program can be 
loaded in absolute form via a bootstrap loadern in 
relocatable form under MSOSi or called from the MSOS library 

The primary purpose of DSKTAP is to save a mass storage 
operating systemn which has been installed on a disk pack-* 
on a magnetic tape- The magnetic tape can be dumped unto a 
disk pack via DSKTAP, 

Data is read from the disk in binary 153b word blocks 
■CI track} -/starting at sector zero to the sector specified! 
and copied onto magnetic tape- When data is transferred 
from magnetic tape to diski 153b word records are read from 
tape and copied to the diskn starting at sector zero. 
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bO-0 SILP 

bO-1 Function 

SILP is a bootstrap program used to load the System 
Initializefc-CSI} file. 

taO-S Entry Points 

SILP 
bO-3 Externals 

SI 
bO- 1 ! Entry Interfaces 

None 
b0.5 Exit Interfaces 

None 
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_l-0 UPDATE - Binary System Updates 

-1-1 Function 

This program is used to update a System Binary Tape- It 
provides a means to replace programs with updated versions 
using only Mag Tape eliminating the intermediate card 
handling of the System Binary Deck. 

-1-E Entry Point Names 

UPDATE 
bl-3 Externals 

None 
tl.1 Entry Interfaces 

Scheduled by Job Processor 
_1.5 Exit Interfaces 

Exit request 
_!•_ Program Equivalences 

SCRLSB 

SCRLU 

STDINP 

LSTOUT 

0UTC0M 

INPCOM 

BINOUT 



FIRST SECTOR OF SCRATCH AREA 

LOGICAL UNIT CELL OF SCRATCH 

LOGICAL UNIT CELL OF STD INPUT 

LOGICAL UNIT CELL OF LIST OUTPUT 

LOGICAL UNIT CELL OF COMMENT OUT 

LOGICAL UNIT CELL OF COMMENT INP 

LOGICAL UNIT CELL OF BINARY OUT 
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DISK ERROR -CINRECOVERABLE> 
STD INP READ ERROR 
BINARY OUTPUT WRITE ERROR 
MAG TAPE UNIT ZERO READ ERROR 
NAM/XFR SE<2 ERR {UPDATED PROG> 
NAI1/XFR SE<3 ERR -COLD SYSTEM> 
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RC 

FREAD 

FWRITE 

STATUS 

MOTION 

UFM 

RWD 

ONEBIT 

ZERO 

BLANKS 

CBLKAD 

BTHRAD 



REQUEST CODE CONSTANT 

FORMAT READ 

FORMAT WRITE 

STATUS REQUEST 

MOTION REQUEST 

{MOTION} URITE FILE MARK 

REWIND CODE 



ASCII BLANKS 

CURRENT BLOCK ADDR OF DISK 

BACKWARD THREAD OF DISK 



o 



bl-7 Description 



The assembled object binary tape of the update progr^m/s 
is input via the Standard Input Tape Unit and saved in the 
scratch area of the disk- As each program NAM card is 
recognizedn the name is logged and entered in a core resident 
table. 
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When input is complete! the operator is asked *READY?*. 
At this point! the operator checks to see that the old 
system tape is ready on Hag Tape Unit Zero -CD} and a scratch 
tape is ready on the Standard Binary Output Unit {New System 
Binary>- When ready n depress Carriage Return- All ASCII 
records {System Initializer Control Cards} are transferred 
directly from the old system tape to the new system tape. 
When a NAM card is recognized! the program name is compared 
to those in the core table- If a match is not found! the 
old system program is transferred to the new tape- If a 
match is found! the program name is listed under ^PROGRAMS 
REPLACED*! and the updated version of that program is 
transferred from disk to the new tape- The old tape is 
searched forward to the XFR card of that program and 
processing continues with the next card- Duplicate programs! 
i-e- some NAPW will be replaced by their one updated version 
regardless of the number of times it appears on the old 
system tape. 

When a file mark is read on the old system tape ! all programs 
will have been transferred to or replaced on the new tape. 
A file mark will then be written on the new system tape. 

The core table is now searched for names of programs not 
transferred- If found! they are listed under ^PROGRAMS 
NOT USED*. 

The operator is then informed ^UPDATE FINISHED* and the 
program exits to the job processor. 
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t,2-D LISTR 

LiE-1 Function 

LISTR will list the name and program length of all the 
binary programs on a binary input device- Control 
statements are listed in sequence- A cumulative sum is 
also listed- 

tiE-2 Entry Points 

LISTR 
bS-3 Externals 

None 
tiE-M Entry Interfaces 

None 
b2-5 Exit Interfaces 

None 
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b3-0 OPSORT - Operand Sort Program 

b3-l Function 

The 17DD Operand Sort Program will provide a means of cross 
referencing 17DD assembly language operands- The program will 
operate on the 1700 MACRO Assemblers list output- It will 
read the list output from the standard input device -Ccardsn 
paper tapen magnetic tape>- Each record will be sorted by 
operand- An alphabetic listing of all operands will be output 
on the standard printer output device- The listing will 
include the source card number and operation code for each 
operand- If any macros are present in the programi they will 
be printed along with their location numbers prior to output 
of the sorted operands - 

b3-2 Entry Points 

OBSORT 
b3-3 Externals 

None 
b3-M Entry Interfaces 

None 
b3-5 Exit Interfaces 

None 

b3-b General Description 

The following is a general flow chart of the Operand Sort 
Program - 

PASS 1 

1- Read a record from standard input device - 

S- If the record is an error on list output {example mmNNmmm 

etc.} return to step 1- 
3- If the record is the second record of a two word instruction 

•Cno card number > return to step 1- 
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** - If the first character of the record is an alpha-numeric 
character retiurn to step 1 {this will occur when 
processing list tapes etc- Where it is necessary to 
advance to the NAM card of the next routine and therefore 
by-pass the label table of the previous routine- > 
5- If the card is an END cardi go to step Il- 
ia- Pick up the first character df the operand- 
7- If the character is a left pareni pick up the second 

character- 
A- Store the operandi card number and opcode into 1 of M1t 
Tb word ^character buffers* based on the first -Cor second 
character of the operand- The m buffers are: 

10 buffers for numeric characters •C0- c I>- 

2b buffers for alphanumeric character -CA-Z}- 

1 buffer for =- 

1 buffer for "- 

1 buffer for + • 

1 buffer for -- 

1 buffer for all other ope rands - 

Information is stored in the following format: 

ZZZZ YYYY XXXXXXXXXX 

where X is the operandi Y is the card number and Z is the 

instruction - 
T- If the ^character buffer* is full -CI records fill it>n 

output the buffer on mass storage scratch- Save the sector 
number in the *sector table* and in the ^1 word of the in- 
formation written on the sector - 

10- Return to step 1- 

11- Output all partially filled ^character buffers' 7 on mass 
storage scratch t saving the sector number in the *sector 
table-* 

12- End of Pass 1- Go to Pass 2- 



PASS 2 

1- Using the *sector table* read all *Q* character records in 
to memory overlaying Pass 1 of the program- If there are 
more than i*00 operands of the nature ZZZZ YYYY XXXXXXXXXX 
beginning with the same character -C0>t a multi-pass load 
will be performed - 
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E. Sort the records based on operand and output on the 

standard printer output device- 
3- Repeat steps 1 and E for the characters 1 through T, 

A through In =t *i + n - n and the miscellaneous characters 
l l« End of Program. 



Sector Table 

A m word table containing the sector number of the last 
^character buffer" written on mass storage scratch for each 
key character the table is ordered as follows: 
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bM-0 Fortran Monitor Runtime Package -CF0RTRA> 

bM.l Function 

The 1700 FORTRAN/Monitor Run-Time Package allows a FORTRAN 
written program to make requests of the 1700 Monitorn such 
as ReadU Writen Schedule and Timer Requests- This capability 
allows FORTRAN programs to communicate with the Monitor 
through the FORTRAN subroutine Call Statement. 



b*4.2 Entry Points 

READ 

WRITE 

FREAD 

FURITE 

SCHEDL 

TIMER 

DISP 

DISPAT 

LINK 

CLOCK 

INPINS 

0UTINS 

RELESE 

IC0NCT 

0C0NCT 

\dH.3 Externals 



Regular Read 

Regular Write 

Format Read 

Format Write 

Scheduler Request 

Timer Request 

Dispatcher Request 

Dispatcher Request {alternative name> 

Passed Parameter Request 

Core Clock Request f 

Input Through At 0. Channel Request 

Output through Ai(2n Channel Request 

Release Memory Request 

Connect 1750 and Execute an Input Request 

Connect 1750 and Execute an Output Request 



None 
\n [ ^mH Entry Interfaces 

Refer to calling sequence! section bM.b.l- 
b l 4-5 Exit Interfaces 

Refer to calling sequences! section bM.bol 
bM-b General Program Information 
bH.b-l Calling Sequence 
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ti4- b -1 - 1 Readn Writei Format Read & Format Write 

Call Name {Logical unftn buffern lengthi completion 
location! flag-priorityi temp-> where name is 



C 



a- READ 
b. WRITE 
c- FREAD 



DEVICE 
Card Reader 



Paper Tape 
Reader 



MODE 
ASCII 

Binary 



Paper Tape Reader 
& Typewriter ASCII 



for read 

for write 

for read a format record- A format 

record^s length is defined for each 

device as follows: 

FORMAT RECORD 

AD columns or length of the 
buffer! whichever is less° 

Word count is the complement 
of the first two frames of 
tape. Checksum is the last 
two frames - 



String of characters terminated 
by a carriage return - 



d. FWRITE 

DEVICE 
Card Punch 



Paper Tape 
Punch 



Paper Tape 

Punch 

Typewriter 

Buffer 



for Write a format record. A format 
record^s length is defined as follows: 



MODE 
ASCII 

Binary 
ASCII 



FORMAT RECORD 

AD columns or length of the 
bufferi whichever is less- 

Word count N is complemented 
and punched as first two 
frames. Checksum is the last 
two frames . 

A string of characters! ter- 
minated by a carriage return. 



An area of core which data is read into or 
written from. 
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Length 



The number of words in the Buffer. 



If this is a mass memory logical unitn then length is 
the name of a three-word vector containing. 



Length 




No- of words 



Mass memory address 
bits 30-15 



Mass memory address 
bits m-o 



Mode-Logical Unit 



The logical. unit number of the 
device is in bits ^-0- The mode 
is bit 12. The logical units are 
detailed below. 



LOGICAL UNIT NO 

SlflFT 
SOflFT 
*0flFA 
SlflFA 
SlflFC 

S1AFD 

$0^CE 



MEANING 



MODE 



Input medium 


ASCII 




Input medium 


Binary 




Output medium 


Binary 




Output medium Printer 


ASCII 




Output comment 






medium 


ASCII 




Input comment 






medium 


ASCII 




Mass memory 






logical unit 


Binary 


only 
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MODE 



LJJ ▼ 

Actual logical unit number 
A core location containing the 
logical unit number.. 



Used only on devices capable of 
both modes o 



ASCII mode 
Binary mode 



Completion Location: 

A location in a program to return control to when the I/O has 
finished- This may be a statement label in the same program 
■Cflag =Q>n an index to the directory -Cflag-l>n or another program 
residing in Core -Cflag=E>o 

Flag Priorities: 

A 3-digit number {hexadecimal > containing the completion priority 
in bits 3-Dt and the Request priority in bits 7-Mt and a flag in 
bits 11-fl -Crefer to completion location for flag meaning} • If 
bit 15 is setn the actual buffer address can be found in the 
location specified by the calling sequence - 
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i-3 



TEMP: 



Completion priority level 
•CO... 15} 

Request priority -CO... 15} 

Flag On li or E 

Indirect flag fl or 0. 



An fl-word area in which the Monitor Call will be generated- 

tiM-b-l.E Scheduler Call: 

CALL SCHEDL -CLi flag-priori ty-, parameter passedi 
temporary area> 

L is the requested program to be scheduled at the 
priority CP {in the Flag-Priority word}. 

Flag-Priority: 

A packed word containing a flag in bits 11-fi and a com- 
pletion priority CP in bits 3-0. {Bits 7-4 are not used}. 



C 
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FLAG 

D 
1 
2 



I 



-CP 



D - - -IS 



L is a statement label 
L is an index to the directory 
L is an external core resident main 
program 



C 



Parameter Passed: 

A positive integer may be passed to the scheduled pro- 
gram- The scheduled program obtains the parameter by 
calling the integer function LINK {see Section 3. 1 I.2-T}. 

Temporary Area: 

A four-word temporary area in which the scheduler call is 
generated- After the scheduler call is complete! the 
temporary area is available for other use- 



tiM- ti-1-3 Timer Call : 



CALL TIMER -CLt Flag-Units-Priorityi time interval n Tem- 
porary Area} 

L is a program to give control at priority CP after the 
time interval has expired. 

Flag-Units-Priority: 

A packed word containing a flag in bits 11-At a unit of 
time code in bits 7-Mt and a completion priority! CPt in 
bits 3-0- 

time Interval: 

The time interval to delay before scheduling the program 
Lt at level CP. 
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Temporary Area: 

A four-word temporary area used when generating the call 
After the CALL has been executedn the temporary area is 
free for other use- 



IS 



IE 11 fl 7 



M 3 



t 



CP priority Q...15 
D Units of time 



counts of 1571 clock 

1 -1 seconds 

2 1-0 seconds 

3 1-D minutes 
— See Scheduler Call for Flag interpretation 

The core clock at the end of the time interval will be 
passed to the requested program as a parameter. To ob- 
tain this passed parameter! execute the following: 

ITIME = LINK -CO} 

where link is a function. 

fc^.b.l.M DISPATCHER entry to the Monitor: 



CALL DISPAT 



Gives control to the dispatcher. The 
next highest priority program will be 
started. 



b«4.ti«.l.S Output Commands via the 1705 Ai<2 Channel: 

Call OUTINS where IOTAd is a 3-word table. 

IOUTAfl -CI} Loaded into the a register. Should 

contain Converter! Equipmentn and Station 
codes or the channel addresses for a con- 
tinuous command. 

I0UTA<2 -CE> -\ Loaded into the A register. Contents 

varies depending upon the device selected. 



^' 
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I0UTA<2 -C3> A flag word which contains the follow- 

ing information after the call. 

No reject 

1 Internal reject 

2 External reject 

bM.b-l-t, Input Commands via the 1705 A-,<3 Channel: 

CALL INPINS -CIINAfl> 

where IINAfl is a 3-word table. 

IINAfl -Cl> Loaded into the Q register. Should 

contain converter! equipment! and 
station codes or the channel address 
for a continuous command. 

IINAfl -C2> After the calli contains the data or 

r"~ status obtained on input- 

IINAfl -C3} A flag word which contains the following 

information after the call: 

D No reject 

1 Internal reject 

2 External reject 

hM.fa.1.7 Connect the 17SD and Execute an Input Command: 

CALL ICONCT -CIINAfl} 

See bM.b.l.b for the calling sequence interpretation, 
m.b.l.fl Connect the 1750 and Execute an Output Command: 

CALL OCONCT -CI0TA(3> 

See b4.ti.l. S for the calling sequence interpretation. 
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m.ti.loT Obtaining the Passed Parameter: 

A program started by a schedule call or timer call may 
obtain the parameter passed to it by calling the integer 
function LINK. The calling sequence is: 

I = LINK -CD} 

This statement must be the first executable statement 
of the program. The completion location of a read/write 
call has an error code passed to itn which may be obtained 
by calling the integer function LINK. 

I = LINK -CD} 

If I is positive n then no error occurred in the Read or 
Write call. If I is negative! then an error occurred. 

bM.b.l.lD Obtaining the Core Clock: 

The integer function ICLOCK obtains the current value 
of the clock. For example: 

I - ICLOCK -CD} 

I contains the current value of the core clod;. 
bLJ.bol-ll Release Allocated Memory Request: 

CALL RELESE {MAIN} 

where MAIN is the main program name. 
bM.ti.S Reentrancy 

The program may be either reentrant or non-reentranto 

Reentrant - volatile storage is used to hold temporarily 
perishable data. 

Non-reentrant - an area within the program is used for 
temporary storage of parameters. 



O 
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bM-? Program Description: 

bM-7-1 ReadN Write! Scheduler! and Timer Monitor Calls: 

Each Entry to the FORTRAN/Monitor Run Time Package 
performs an initialization sequence in which the volatile 
allocation routine is called and the return address is 
saved- The calling sequence parameters are then inter- 
preted and the appropriate absolute monitor call is 
generated- The area in which the call is then executed 
using an indirect reference to the generated parameters. 

The FORTRAN program may have the parameters located any- 
where in core • 

ti l 4.7-E Miscellaneous Calls: 

Input and Output Instruction Routines: 

The Input and Output Instruction Routines allow the 
FORTRAN user to directly communicate with I/O devices 
tied to the .1700 computer via the 1705 At (3 channel - 
Upon entryn the address of the three-word table is 
generated! A and Q. are loaded! and the appropriate 
instruction {input or output> is executed- The contents 
of the A register are then stored back in the table- If 
a reject occurred in the I/O instruction! the flag word 
is set {word 3} and control is returned to the user- 
Obtaining the Passed Parameter: 

The function LINK simply transfers the contents of the 
Q. register! which the Monitor has loaded with the passed 
parameter! to the A register and returns control to the 
caller. 

Obtaining the Core Clock: 

The function ICLOCK simply loads the core clock! location 
Efl^t, into the A register and returns control to the caller 
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bS.O Fortran Read/Write Statement Processor -C(3fi(3IO> 

bS-1 Function 

This program serves as an interface between the FORTRAN 
READ/WRITE statement-, ENCODE/DECODEt and the 17DD Monitor 
Read/Write Request Processor- It will allow the FORTRAN 
programmer to use READ/WRITE statements as defined by 
FORTRAN- The resulting I/O processing will be through the 
reentrant ENCODE/DECODE package. The only changes resulting 
from this implementation are: 1> The user must supply a 
buffer in which the format processing will take placei 
E> Ifi temporary locations n which immediately precede the 
buffer and will contain the calling sequences to the 
monitor for read/write processing and information for re- 
entrancyi 3} on input only one record/read statement may 
be executedi i.e.i the FORMAT statement may specify only 
SO columns of data for card inputn "4> on output the record/ 
write statement may be as long as the space in the buffer 
allows with the following limitations: If the programmer 
f~' s has not specified a new line -C/} after 150 characters have 

^~ y been packed into the buffern a carriage return is auto- 

matically inserted in the message, and will continue to be 
inserted every ISO characters until the FORMAT processing 
is complete. 

bS-2 . Entry Points 

ARGUQ - Entry containing FWA of user v s buffer {reentrant 
version only} which is saved by the scheduler. 

G2B(2INI - Entry to initializer format processing. 

(3A(3X - Entry to pick up the parameters in list of vari- 
ables to be converted- 

(2fl(2END - Entry to signal the termination of format pro- 
cessing. 

dfidGET - Entry for ENCODE/DECODE to pass the user^s 
parameter addresses for format processing. 

SETBFR - Entry for user to specify the buffer address with 
temporary locations for generating the READ/URITE 
calling sequence and the length of the buffer- 

IOERR - Entry for obtaining ERRQR flag immediately after 
executing a FORTRAN READ/URITE statement. 
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L.5-3 External Symbols 

FORMTR Entry point for Encode/Decode 

Binary 

bS-M Entry & Exit Interfaces 

Before a READ/URITE statement can be properly executed a 
CALL SETBFR -CBUFFERiLENGTH> must be made at least once. 
Also-i after any Dispatcher call the SETBFR call must be 
repeatedn otherwise the buffer location has been destroyed. 
The user^s (2n I registers will be saved and restored. 
After any ENCODE/DECODE call-, and before any FORTRAN READ/ 
WRITE statement a call to SETBFR must be made. The scratch 
area contained in the user^s buffer is as follows: 

UORD 1. Last Word Address -CLUA* of Buffer 

E. Request Code for READ/URITE 

3. Completion Address 

H. Thread 

5- Logical Unit 

b. Message Length 

7. First Word Address -CFU)A> of Message 

A. Unused 

T. Unused 

ID. (3-Register of User 

11. Return Address to User*s Program 

IE. I-Register of User 

WORD 13. READ/URITE Flag -CIC0DE> 

m- LIST Address 

15. Total Number of Variables in LIST -CMV3- 

lb. ENCODE/DECODE Flag -CDEFLAO 

17. FORTRAN FORMAT Flag 

Ifl. Error Flag 

IT. Starting Location of User^s I/O Buffer 

The format for the FORTRAN FORMAT FLAG is: 
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Bit IS not used 

14 1 = formatted 

Q = unformatted 
13 1 = actual LU 

D = address of LU 
12 1 = format statement address 

D = address of format statement address 
11 1 = list 

D = no list 
10 1 = read 

D = not read 
T 1 = write 

D = not wrrlte 
fl-D not used 

The general calling sequence generated by the FORTRAN 
compiler for a READ/WRITE statement is: 

RTJ (3fl(3INI 

C s ) I- Flag word {see above}. 

-^ 2- I/O Request number -Cuser^s statement number}. 

3. LU or address of LU. 

4. Format statement address-i or address of format statement 
address • 

RTJ C16QX 

1. Address of LIST element. 

RTJ <2A(2END 

bS-S General Program Information 
bS.S-l Calling Sequence 
bS-S. 1-1 Assign Buffer Location 

CALL SETBFR -CBUFFER-.LENGTH} where the first Ifl words of 
the buffer will contain the calling sequence for the I/O 
request and information for reentrancy° The remainder will 
contain the input/output message. LENGTH is the total 
length of the BUFFER which includes the Ifl words needed bv 
<3fl(2IO. y 

For input operation: 
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READ -CLUilO LIST 

ID FORMAT -C _ Where LU = the logical unit and LIST 

contains the elements to be input- 

For output operation: 

WRITE -CLUilO LIST 

ID FORMAT ■{-:•--> Where LU = the logical unit of LIST 
contains tne elements for output. 

For error flag: 

IFLAG = I0ERR-CD} Where IFLAG will contain a -1 if errors 
occurred- 

bS-S-E There are seven entry points in (3fl(3IO with each having a 
unique function- They are as follows: 

1. (2fl(2INI picks up the location of the formatn logical 
unitn and flag for READ/WRITE processing and returns 
if data is contained in LIST -Cas indicated by the flag 
word}- If only a format -CN0 LIST} is to be processed 
ENCODE/DECODE is called. The format is transferred into 
the buffer n a write request of the monitor is maden 
followed by a call to the dispatcher. On completion of 
I/0t control is returned to the user's program. 

2. (3fi(3X passes the current parameter address within the 
LIST to ENCODE/DECODE for formatting. For the first 
request the input record \$\\\ be obtained for a READ 
statement before calling ENCODE/DECODEn or the record 
for a WRITE statement will be output when format 
processing is complete- 

3. (2fl(3END simply passes the last parameter address within 
LIST to ENCODE/DECODE for processing and signals the end 
of formatting. 

M. (3fl(3GET is called by ENCODE/DECODE to signal that a 

new parameter is needed for continued format processing- 
If ENCODE/DECODE was called directly by the user <2fl(3GET 
updates the LIST address and returns to continue format 
processing. 
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5- SETBFR is an entry which is called by the user once to 
pass the buffer address and buffer length to the 
reentrant I/O processor- This address and length are 
retained by the I/O processor throughout execution of 
the current program unless the user calls the dis- 
patcher or ENCODE/DECODE directly- If this occursi the 
user must call SETBFR again before any I/O can be done- 

b- IOERR is an entry for a FORTRAN function call to return 
an error flag -C-l> if any errors occurred while 
processing the previous READ/WRITE statement. 

7- ARGUO is an entry in the reentrant version containing 
the FUA of the user v s buffer- When a FORTRAN priority 
level change is maden this location is saved by the 
SCHEDULER/DISPATCHER in the monitor. 

bS-S-3 Core Memory 

Approximately 5 mi locations -[reentrant version> and ENCODE/ 
DECODE -C17titi>w Approximately l^H locations -Cnon-reentrant 
version} and ENCODE/DECODE -ClLfll>. 

bS-b General Design Peculiorities 

bS-b.l Reentrancy 

This program is reentrant using the volatile storage 
required by Encode/Decode. 

bS.b.E Limiations and Restrictions 

The FORTRAN programmer is no longer restricted in the user 
of implied DO statements in the LISTt but still is restricted 
to one level of repetition in the FORMAT statement -Csee 
ENCODE/DECODE ) . - A restriction 

is placed on input in that the FORMAT may designate only one 
input record -CAD card columns>/record- On output the record 
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size will automatically be broken into ISO characters/line 
if the programmer has not designated a new line of output 
before the 150 characters. Howeveri the buffer may be 
filled with as many records as the size of the buffer allows- 
When formatting is complete the buffer is output with the 
N-records contained within. 

The format READ/WRITE are the only calling sequence imple- 
mented in Q&Q.IO'i therefore! unformatted READ/WRITE must still 
be made through the FORTRAN/MONITOR RUN-TIME Package. 
Furthern there is no implemenetation of mass memory READ/ 
WRITEi these requests must be made through the RUN-TIME 
Package. 

b5>t>3 User Instructions 

This program must be run in conjunction with the ENCODE/ 
DECODE package 

c 
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Fortran Encode /Decode 

This document describes the Encode/Decode subroutines. 
Also subroutines which are a subset of Encode/Decode to 
be used by the FORTRAN programmer. This subset includes 
HEXASC-, HEXDEC-, ASCII-, DECHEX-, AF0RM-, RF0RM-, and 
FLOAT. 

Function 

These subroutines afford the FORTRAN programmer the 
ability to format a list of variables for input/output 
with a compiled format statement n or to format a single 
variable by calling the appropriate formatting subroutine 
The purpose of formatting one variable at a time {when- 
ever possible! will save execution time needed for 
interpreting the format statement. 

Entry Points 

Entry Symbols 



ENCODE 



DECODE 



HEXASC 



An entry which converts a list of variables 
from a binary to external form according to 
a specified format for output. 

An entry which converts a list of variables 
from an external to binary form according to 
a specified format for input. 

An entry which converts a hexadecimal integer 
into two words in ASCII format. 



HEXDEC An entry which converts a hexadecimal integer 
into a three word decimal integer in ASCII 
format {maximum value 327b7}. 

ASCII An entry which converts two words in ASCII 
format into a one word hexadecimal integer. 

DECHEX An entry which converts three word decimal 

integer in ASCII format into a one word hexa- 
decimal integer {Maximum value 327b7}. 



AA 3777 



PRINTED IN USA. 



CONTROL DATA CORPORATION 

Arden Hills Developmgnh DIVISION MAR 5 1971 

DOCUMENT CLASS £WS- PAGE Kin Ul.? 



1 PRODUCT NAME 1700 OPERATING SYSTEM 



PRODUCT MODEL NO. r00hn3.Q . MACHINE SERIES. 



1700 



U 



AFORfl An entry which converts one word in ASCII 

format into two words each containing an ASCII 
character -Cleft justifiedr blank filled!- 

RFORM An entry which converts one word in ASCII format 
into two words each containing an ASCII character 
•Cright justifiedr zero filled}. 

FLOAT An entry which converts a floating point variable 
into six words in ASCII code with the following 
format: t .XXXXXXES00. 



bb.3 Externals 

FLOT A FORTRAN floating point package used to handle 
floating point arithmetic. 

bb-M Internal Symbols 

C ") IA Contains the most significant bits of a 

y floating point number. Also used as a tem- 

porary location. 

IB Contains the least significant bits of a 

floating point number. Also used as a tem- 
porary location. 

ICH Contains the current format conversion character. 

IFIELD Contains the current total field width specified 
in the format. 

JFIELD Contains the current number of decimal places 
to the right of the decimal point which is 
specified in the format. 

FORMAT A location containing the FbJA of the user^s 

FORMAT in the non-reentrant version of Encode/ 
Pec ima 1 ■ 
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DEFLAG A flag to indicate whether an Encode/Decode 
call or a Q&QIO call was made. : 

TEMP Contains the return address to F0RI1TR {format 
processor! when a new parameter address is 
required for formatting. 

NUMBR Tontains the current number of repeats on a 
format conversion character. 

ITERAT Contains the current number of repeats on a 
parenthesized expression. 

IX The ordinal to the current word in the format. 

JX The ordinal to the current character within 
the format. 

IBX The ordinal to the current word of the buffer. 

JBX The ordinal to the current character within the 
buffer. 

IR Scratch ar&a for the conversion routines. 

ICODE Encode/Decode flag- 

ISTART Ordinal to the start of the parenthesized ex- 
pression within the format. 

JSTART Ordinal to the starting character of the 

parenthesized expression within the format. 

LIST The address of the current variable to be 
converted. 

NV Total variables to be converted. 

LPAREN Total number of left paren encountered in the 
format . 

MAXCH Allowable number of characters packed into a 
buffer location. 
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ARGU1 Contains the FUA of the buffer. 

ARGUS Contains the FUA of the format. 

ARGU3 Location for computing addresses. 

ARGUM Location for computing addresses. 

BUFFER A location containing the FUA of the user^s 
buffer in the non-reentrant version of 
Encode/Decode. 
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bb-S General Program Information 

tt-5-1 Calling Sequence 

bb-S-l-l Encode and Decode Call 

CALL NAME {BUFFER r FORMAT, NO- Of VARIABLES, LIST> 

BUFFER The starting address of a buffer for encoding 
into/decoding from. The buffer length must 
be at least one half the total number of 
characters specified in the format statement. 

FORMAT The location of a format statement. This format 
may not contain more than one level of repetition 
for any given set of variables. The following 
character set will be interpreted as: 

Ew-d for output formatting of a floating 

point quantity with an exponent. v w^ 
specifies the total field width and 
* d* specifies the total number of 
significant digits -[maximum of b 
significant digits}. 

Fw.d for both input and output formatting 
of a floating point quantity. ^w v 
specifies the total field width and 
^d' 7 specifies the total number of 
significant digits to the right of 
the decimal point -!!1D"^ to 10 + ^-l>. 

Iw.d for put put formatting of a decimal 
integer. ^w v specifies the total 
field width and *d v specifies the sea 
factor -C1D~°}. The magnitude of the 
integer: fl -1>I. 
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Iw for both input and output formatting 
of a decimal integer. *w v specifies 
the total field width* The magnitude 
of the integer: -CE" -1 to E -1}. 

£w for input/output of hexadecimal 

integers, *w* specifies the total 
field width. The magnitude of the hex 
integer 57FFF. 

Aw for input/output of alphanumeric data- 
The character will be left justified 
blank fill. *w v specifies the field 
width which must be^E. 

Rw for input/output of alphanumeric data. 
The character will be right justified 
zero fill, *w* specifies the field 
width which must be =1. 

wH for headings and labeling -CASCII code}. 

/ beginning new record {single line space} 

1 as the first character in a format 

statement the interpretation will be 
*Top of Form* . 

D-Czero} as the first character in a format 

statement the interpretation will be 
double line space. 

No- of variables number of variables contained in the 

list for formatting. 

List a list of variables to be converted 
{cannot contain an implied DO state- 
ment} . 

NOTE: If an odd number of characters has been packed into 
the bufferr a null -COO} will be stored as the re- 
maining character. 

A special calling sequence is: 

CALL ENCODE/DECODE-CIBUFrlFORMrOrD} 
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The format must contain nH specifications only- For 
ENCODE v n^ ASCII characters will be transferred from 



the format 
acters w i I 



to the buffer. For DECODE *n* ASCII char- 



be transferred from the buffer to the format 
HEXASC and HEXDEC Ca 1 I 



CALL NAME {VARIABLE, BUFFER} 



VARIABLE 



BUFFER 



the location of a hexadecimal 
converted to ASCII format - 



integer to be 



the location of a two word buffer to contain 
the converted integer in hexadecimal formr or 
the location of a three word buffer to contain 
the converted integer in decimal form. The 
format for the decimal integer will be a max- 
imum of 5 digits preceded by a t sign Right- 
justified blank fill- 



bb-S-1-3 ASCII and DECHEX Call 

CALL NAME -[BUFFER , VARIABLE} 
BUFFER 



the location of a two word buffer which 
contains a hexadecimal integer in ASCII format 
or the location of a three word buffer which 
contains a signed decimal integer in ASCII 
format . 



VARIABLE the location which will contain the integer 
converted to hexadecimal form. 

AFORH and RFORfl Ca 1 I 

CALL NAtlE -CVARIABLEr BUFFER} 

VARIABLE the location containing two ASCII characters. 

BUFFER the location of a two word buffer which will 
contain an ASCII character 'per word. 
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bb.S-1.5 FLOAT Cal I 

CALL FLOAT {VARIABLE, BUFFER* 

VARIABLE the location of a floating point variable. 

BUFFER the location of a six word buffer. 

bb.b Program Description 

1. The entry to the non-reentrant ENCODE/DECODE package 
performs an initialization sequence in which the users 
calling parameters are absolutized and stored in a 
calling sequence for the subroutine FORMTR. FORMTR 

is the main program which interprets the format speci- 
fications and calls the appropriate conversion routine. 
The conversion routines do the computations from/to 
binary representation and pack/unpack the ASCII char- 
acters according to the format specifications. The 
subroutine HEXASO HEXDECr ASCIIr DECHEX , AFORMr RFORMr and 
FLOAT call the appropriate conversion routines directly. 

2. The entry to the reentrant ENCODE/DECODE package performs 
an initialization sequence in which the volatile allo- 
cation routine is called and the return address is saved. 

The procedure is then the same as in the non-reentrant 
package. The subroutine HEXASCrHEXDEO ASCII r DECHEX r 
AFORM, RFORMr and FLOAT are also reentrant. 

The ENCODE/DECODE package is to be used in conjunction with 
the FORTRAN/MONITOR RUN-TIME PACKAGE which output/input a 
formatted record. 

bb.? Rel ocatabi I i ty 

The reentrant version is loader rel ocatab lei the non- 
reentrant version is loader relocatable run-anywhere. 
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Reentrancy 

There are two versions of the ENCODE/DECODE package: 

1. A non-reentrant ENCODE/DECODE package written in 
FORTRAN and may be compiled as a loader relocatable 
package or a loader relocatable run-anywhere package- 

2. A reentrant ENCODE/DECODE package written in assembly 
language which is loader relocatable -Cnot run-anywhere} 
code. 

Core Requirements 

Non-Reentrant ENCODE/DECODE 

Cbre Program , IbHM 

Mass Memory none 

Non-Reentrant FORMATTING SUBROUTINES 

Core Program EIT 

Mass Memory none 

Tables {Data} 37 

ITDO Total 



bb.T.E 



Reentrant ENCODE/DECODE 

Core Program 

Mass Memory 

Reentrant FORMATTING ROUTINES 

Core Program 

Mass Memory 

Vo lat i le Storage 



1732 
none 

212 

none 

2 c i 



1^73 Total 
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Reentrant ENCODE/DECODE 

All subprograms of the reentrant ENCODE/DECODE must have 
the following instructions: 



ENTRY 



NAME 



NAME 









INN 





RTJ 


INITAL 



JMP 

END 



RSTORE 



FORMAT -CS13r 3-CF5.E*} 
WORD COUNT 1 a 



CHARACTER COUNT 
FORMAT 



1 £ 

t 

NUMBR 



1 E 
I 3 



1 E 

r 3 



1 s 

■C F 



t 

ITERAT 



1 E 
5 . 



1 E 
E } 



1 E 

y 



IX=Uord Count 
JX=Char . Count 



FIELD 



IFIELD 



IFIELD 



O 
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Output Message Buffering Package 

Function 

The Output Message Buffering Package completes user message 
output by writing the message into a buffer area of core 
or mass memory- The message is subsequently read back from 
the buffer to a core area {character buffer} from which 
actual message output to a physical device is made by a 
monitor FWRITE request. A buffer physical equipment table 
is required for each buffer and a corresponding logical unit 
is assigned. 

User requests are made by making FURITE monitor calls that 
address a buffer input logical unit- The corresponding 
buffer table includes the buffer output logical unit 
number to be used for actual output and the request priority 
for actual output. The buffer table also defined the 
available buffer area in core or on mass memory and the size 
of the character buffer. 



Entry Points 

BUFDRI 
BUFDRC 
&URITC 
BREADC 
BOUTPC 

Externals 



Buffer Driver Initiator {Input Section} 
Buffer Driver Continuator {Input Section} 
Transfer to Buffer Completion {Output Section} 
Transfer from Buffer Completion {Output Section} 
Actual Output Completion {Output Section} 



ALTDEV Alternate Device Handler 

General Program Information 

Definition of Terms 

BUFFER - BUFFER AREA: The area of core or mass memory 
reserved for storing messages prior to actual output. 

BUFFER INPUT LOGICAL UNIT: The Logical Unit used to request 
buffered message output. 
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BUFFER OUTPUT LOGICAL UNIT: The Logical Unit used by the 
Message Buffering Package for actual output of the message. 

BUFFER TABLE - BUFFER PHYSICAL DEVICE TABLE - BUFFER PHYSICAL 
EQUIPMENT TABLE: The equipment table corresponding to the 
Buffer Input Logical Unit- Includes all parameters for 
definition and use of the buffer- 

CHARACTER BUFFER: The core area reserved for holding the 
message or portions of the message dump actual output. 

MESSAGE: The data specified for output by a user request. 

^7-4-2 Internal Symbols 

BFLEVL Priority Level of the Buffer Package 
BFFMLU Logical Unit for the Mass Memory Device 

These symbols must be defined by E(3Us when the BUFFER macro 
is used. They are normally assigned as follows: 

ECU BFLEVL -C1D> 
E(3U BFMMLU-C*ACE> 

h ?. 4.3 Buffer Macro 

BUFFER F-, L -i Hi- LLN RPn N 

F = Start Address of Buffer -CLSB> 

L = End +1 Address of Buffer 

H = Most Significant Bits of Buffer Address -CMSB} 
■CBlank for a Core Buffer} 

LU = Logical Unit for actual output 

RP = Request Priority for Buffer Output on this lu 

N = Size of Character Buffer for actual output 
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this macro generates the Buffer Physical Device Table and 
the Character Buffer area. The character buffer will follow 
the last word of the Buffer Physical Device Table- The 
address of the Buffer Physical Device Table must be added 
to the L0G1A Logical Unit Table and its relative position 
in that table determines the logical unit number assigned 
to the Buffer. 

The corresponding L0G1 and L0G2 entries are D and FFFF , 
respectively. lb 

Data generated by BUFFER macro: 



BTAB 



O 




t 



Buffer Table 

Length M3„„ 
ID 



1 



t 

Character Buffer 
Length *N* 



1 



*N* is the length of the character buffer as specified 
in the macro call • 

*BTAB* is the address of the Buffer Table that must be put 
in the L0G1A logical unit table. 
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b?.4.4 Buffer Table 

The buffer table is the physical equipment table for the 
buffer- It is extended beyond the standard 13 words common 
to all drivers. The following diagram shows the 
assignment of symbolic names and the initial setup of the 
buffer table - 

F-iL-iH-iLUtRPtN are as defined for the BUFFER macro 
LV = BFLEVL = Priority Level ■C= C J> 

BFMMLU = Mass Mem- Logical Unit -C=$flC5> 
CHBUFF is the Character Buffer Address -C=BTAB+43} 
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Symbolic Addresses 
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ELVL 
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EDCN 
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EDPGM 
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EDCLK 
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ELU 
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EPTR 
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EWES 




a 


EREdST 
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ESTAT1 




ID 


ECCOR 
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ELSTUD 
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ESTATE 
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TIMER 
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LOCB 
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ENDB 
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FIRST 
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LAST 
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DPLD 
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ED 
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DLEC 
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DART 
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DTRACK 
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STOR 
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CONTRL 
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DOUTD 
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OUTLNG 




S 


DADR 
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OUTTK 
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READ 




5 


SKELNG 
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OUTPD 
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4D 


4 




1 


ACHAR 
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LCHAR 
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Standard Physical Equipment Table D 

Initiator Entry 1 

Continuator Entry E 

Diagnostic Entry 3 

Diagnostic Clock M 

Logical Unit Assigned 5 

Adr. of Request b 

Hardware Address 7 

Type Code A 

Status Word 1 T 

Start Code Address ID 

End Core Address +1 1 

Status Word E E 

No of attempts 3 

Buffer Start H 

Buffer End +1 5 

Temp Buffer Start l b 

Temp Buffer End +1 7 

Mass Memory WRITE fi 

Completion Address T 

Thread ED 

Logical Unit 1 

Length E 

Core Address 3 

MSB of M.M. Address M 

Buffer Store Pointer 5 

Control Word h 

lass Memory READ 7 

Completion Address fi 

Thread T 

Logical Unit 3D 

Length 1 

Core Address E 

MSB of M.M. Address 3 

Buffer Read Pointer t| 

Control Word 5 

Character Output FWRITE b 

Completion Address 7 

Thread fi 

Output Logical Unit 1 

Length WD 

Address of Char- Buffer 1 

Length of Char- Buffer E 



Initial Setup 



*1£00+LV 



BUFDRI 



BUFDRC 



BUFDRC 



-1 



s^A 1 * 



D 



50MF0+LV 



BWRITC 



BFMMLU 



D 



D 



$E00+lb*LV+LV 



BREADC 



D 



BFMMLU 







CHBUFF 



H 



D 



$C00+lb"RP+LV 



BOUTPC 



LU 



D 



CHBUFF 



N 



BUFFER OUTPUT PHYSICAL DEVICE TABLE 
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b7-S Description 

The buffer table includes the initiator continuator and 
diagnostic time-out entries to the buffer package in words 
1-3- Therefore! a request for buffered output will cause 
the input section of the buffer package to be scheduled 
unless it is busy- If it is busy! requests are threaded 
in the normal manner - 

The input section is concerned with transfer of messages 
into the buffer- This section operates just like the 
driver for a physical device- The buffer area correspond 
to the physical devices to be driven- FNR -Cfind next 
request subroutine} is used to pick up the request parameters- 
If no requests remain then the program exits to the 
dispatcher otherwise! an attempt is made to write the message 
into the buffer- The I register holds the buffer table 
address - 

Tests are first made to determine that the length of the 
message +1 is small enough to fit into the available area 
of the buffer- The next location to store into is saved 
in the STOR pointer in the buffer table- If the end of the 
buffer is reached! a temporary end location i, LASTn is set 
equal to STOR then STOR is set back to the start of the 
buffer- Insufficient space is available if the length of the 
message +1 + STOR is equal to or beyond the current location 
for reading from the buffer! REA&- When this happens! five 
successive tries will be made at 1 second intervals via the 
diagnostic time-out entry- -CThis feature is unavailable if 
the 1573 timer is not included in the system}- If space is 
still unavailable after five seconds! the error code is set 
in 0. and control passes to the alternate device handler. 

One extra word is added to the message to save the length of 
the message in the buffer- This word CONTRLn is written in 
the buffer first! followed by the actual message- The buffer 
STOR pointer is updated on successful completion- The monitor 
request parameters for the mass memory transfer form part of 
the buffer table- Core buffering does not require the 
monitor request but the high order bits of the v mass memory" 
address are set to flOQO , to denote a core buffer. 

lb 
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On completion of buffering! C0NPR<2 {complete request 
subroutine} is executed to complete the user request- 
The output section is then scheduled unless output is 
already in progress for the buffer- Control then passes 
back to the initial entry to search for further requests - 

Entry to the output section is made with the (3 register 
set equal to the buffer table address- This address is 
saved in the I register- The output section transfers 
the message out of the buffer to the character buffer and 
makes an FURITE request for actual output to the physical 
device- All the parameters for the mass memory transfer 
and the FURITE output are held in the buffer table- 

The current location to read from the buffer is held in 
location READ in the buffer table- A transfer of length 
equal to the character buffer length is made starting with 
this location- For core buffers this is a simple core to 
core transfer- Otherwise! a monitor READ request is used to 
transfer data from the mass memory device- On successful 
completion! the READ pointer is updated by the length of 
the transfer- New messages are recognized by the contents 
of SKELNG ! being reset from the first word of the data just 
transferred from the buffer - 

The remaining length is then calculated by subtracting the 
length just transferred from SKELNG- If SKELNG is zero the 
message is complete. If SKELNG is negative too much data 
was transferred and the READ pointer and the length for 
actual output must be adjusted to the actual message length. 
If SKELNG is greater than zeron the message is incomplete and 
further transfers will be required- When the message is 
complete! the temporary start of buffer pointer FIRST is set 
to READ- If FIRST is now equal to LASTt FIRST and READ are 
reset to the actual start and LAST to the actual end of the 
buffer - 

Actual output of the data in the character buffer is then 
initiated via a FURITE monitor request to the buffer output 
logical unit specified in the buffer table- On completion 
of actual output control returns to the start of the output 
section where a test is made to determine if the buffer is 
empty n i-e-n no messages remain- If sd the program exits n 
otherwise output continues - 
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Note that long messages will be split into separate FURITE 
requests each of length equal to the length of the 
character buffern {except that the last request may be 
shorter}- This may result in undesired line feed control 
action in some cases- The user may prefer to change the 
monitor request for actual output to a WRITE in such cases 
•CUord 0UTPQ3-- 

Transfers to and from mass memory buffers are made using 
monitor READ/WRITE requests with word addresses in the 
same format as for the 1751 drum driver- Two WRITE re- 
quests are made to transfer data to the buffern one for 
the length control wordn the other for the message- The 
number of READ requests for transfer from the buffer is 
equal to the length of the message divided by the length of 
the character buffer - 

t7-b Special Requirements 

The area of core or mass memory specified as the buffer area 
must be reserved for exclusive use of the buffer package at 
System Initialization- A BSS block may be provided in the 
system tables for core buffering- For mass memory buffers 
the *MihhhhnS Initializer statement may be used- 
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